From 0c1015a8f0752b7971e6d1c4f8e20fc54b49bca5 Mon Sep 17 00:00:00 2001 From: marting Date: Thu, 16 Sep 1999 16:18:05 +0000 Subject: [PATCH] added dfishers steal-port stuff --- scheme/env/command-level.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/scheme/env/command-level.scm b/scheme/env/command-level.scm index 037a417..b3029d0 100644 --- 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