andrius
/
gash
mirror of https://git.savannah.gnu.org/git/gash.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Revert "non builtin hax0r" 

This reverts commit 29a54650ab.
This commit is contained in:
Jan Nieuwenhuizen 2018-07-03 19:59:52 +02:00
parent 867d83bb69
commit b01c5da8ac
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gash/pipe.scm
View File

@ -33,10 +33,9 @@
;; w[2] -> r[3] [sink]
(define (exec* command) ;; list of strings
(let ((command (map (compose with-output-to-string (lambda (c) (lambda () (display c)))) command)))
(catch #t (lambda () (apply execlp (cons (car command) command)))
(lambda (key . args) (format (current-error-port) "~a\n" (caaddr args))
(exit #f)))))
(catch #t (lambda () (apply execlp (cons (car command) command)))
(lambda (key . args) (format (current-error-port) "~a\n" (caaddr args))
(exit #f))))
(define ((tee-n file-names) inputs outputs)
(let* ((files (map open-output-file file-names))