scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed bug in really-fork/pipe+: let-optionals already takes care of 

optional arguments, no need to CAR any further.
This commit is contained in:
mainzelm 2003-03-31 06:09:00 +00:00
parent f732ad9938
commit 551f0a3ee2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/scsh.scm
View File

@ -82,8 +82,8 @@
(for-each (lambda (fd) (dup w fd)) from) (for-each (lambda (fd) (dup w fd)) from)
(close w))) ; Unrevealed ports win. (close w))) ; Unrevealed ports win.
froms pipes) froms pipes)
(if (pair? maybe-thunk) (if maybe-thunk
(call-terminally (car maybe-thunk))))) (call-terminally maybe-thunk))))
proc)))) proc))))
(define (tail-pipe a b) (define (tail-pipe a b)