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

added dfishers steal-port stuff

This commit is contained in:
marting 1999-09-16 16:18:05 +00:00
parent 7073fef5c3
commit 0c1015a8f0
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scheme/env/command-level.scm vendored
View File

@ -329,9 +329,10 @@
(if (not terminating?) (if (not terminating?)
(begin (begin
(set-exit-status! #f) (set-exit-status! #f)
(steal-channel-port! (command-input)) (steal-port! (command-input))
(steal-channel-port! (command-output)) (steal-port! (command-output))
(steal-channel-port! (command-error-output)))) ; (steal-port! (command-error-output))))
))
(run-threads (run-threads
(round-robin-event-handler (command-level-queue level) (round-robin-event-handler (command-level-queue level)
command-quantum command-quantum