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

simplify pipeline signature

This commit is contained in:
Rutger van Beusekom 2016-10-10 09:54:18 +02:00
parent d874664dc3
commit f25569da27
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sh/pipe.scm
View File

@ -44,7 +44,7 @@
(close src)
(waitpid pid)))))
(define (pipeline commands)
(define (pipeline . commands)
(if (< 1 (length commands))
(let loop ((src (spawn-source (car commands)))
(commands (cdr commands)))
@ -52,4 +52,4 @@
(loop (spawn-filter src (car commands))
(cdr commands))))))
;;(pipeline (list (list "ls" "/") (list "grep" "o") (list "tr" "o" "e")))
;;(pipeline (list "ls" "/") (list "grep" "o") (list "tr" "o" "e"))