From dd5c5ebc81ba3d58e78c2dbd09f6ae89ee2ce6e7 Mon Sep 17 00:00:00 2001
From: marting <marting>
Date: Thu, 16 Sep 1999 16:50:17 +0000
Subject: [PATCH] added dfishers steal-port stuff

---
 scheme/interfaces.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/scheme/interfaces.scm b/scheme/interfaces.scm
index 321357b..1b7ad4e 100644
--- a/scheme/interfaces.scm
+++ b/scheme/interfaces.scm
@@ -442,6 +442,11 @@
   (export current-input-port current-output-port
 	  close-output-port close-input-port
 
+	  ;; Added for scsh -dfisher and JMG;;
+	  $current-input-port
+	  $current-output-port
+	  $current-error-port
+	  ;; end of additions. ;;
 	  char-ready?
 	  read-block write-block
 	  newline
@@ -486,6 +491,8 @@
 	  really-force-output          ; assumes port alread locked
 
 	  output-port-forcers	       ;root-scheduler.scm
+	  
+  	  steal-port!                  ; JMG: for scsh
 
 	  call-with-current-input-port
 	  call-with-current-output-port
@@ -500,6 +507,7 @@
 	  waiting-for-i/o?              ;scheduler
 
 	  steal-channel-port!		;command
+	  steal-channel!                ;JMG: For scsh.
 	  
 	  input-channel->port           ;usual-resumer posix
 	  output-channel->port          ;usual-resumer posix