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

non builtin hax0r

This commit is contained in:
Rutger van Beusekom 2018-07-02 20:18:59 +02:00
parent 4ef3a941aa
commit 29a54650ab
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gash/pipe.scm
View File

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