added dfishers steal-port stuff

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