added dfishers steal-port stuff

1999-09-16 16:18:05 +00:00 · 1999-09-16 16:18:05 +00:00 · 0c1015a8f0
parent 7073fef5c3
commit 0c1015a8f0
1 changed files with 4 additions and 3 deletions
--- a/scheme/env/command-level.scm
+++ b/scheme/env/command-level.scm
@ -329,9 +329,10 @@
  (if (not terminating?)
      (begin
 	(set-exit-status! #f)
-	(steal-channel-port! (command-input))
-	(steal-channel-port! (command-output))
-	(steal-channel-port! (command-error-output))))
+	(steal-port! (command-input))
+	(steal-port! (command-output))
+;	(steal-port! (command-error-output))))
+	))
  (run-threads
    (round-robin-event-handler (command-level-queue level)
 			       command-quantum