From 18d41a4a16e0c4a611d007b5cb44daa0398a565d Mon Sep 17 00:00:00 2001
From: marting <marting>
Date: Tue, 5 Oct 1999 14:54:37 +0000
Subject: [PATCH] removed some exports for scsh

---
 scheme/interfaces.scm      |  8 ++------
 scheme/more-interfaces.scm | 15 ++-------------
 2 files changed, 4 insertions(+), 19 deletions(-)

diff --git a/scheme/interfaces.scm b/scheme/interfaces.scm
index 6c4c746..6f3cdc6 100644
--- a/scheme/interfaces.scm
+++ b/scheme/interfaces.scm
@@ -229,8 +229,7 @@
 ; Another hodge-podge.
 
 (define-interface low-level-interface
-  (export vector-unassigned?		;inspector
-	  flush-the-symbol-table!)); JMG : for scsh
+  (export vector-unassigned?))		;inspector
 
 (define-interface vm-exposure-interface
   (export invoke-closure		;eval
@@ -595,7 +594,6 @@
 
 (define-interface interrupts-interface
   (export initialize-interrupts!	;init.scm
-;	  with-interrupts               ;JMG: no longer for scsh
 	  all-interrupts
 	  no-interrupts
 	  ;reset-timer-interrupts!
@@ -611,9 +609,7 @@
 	  with-interrupts-inhibited
 	  call-after-gc!
 	  call-before-heap-overflow!
-	  (interrupt :syntax)
-;	  interrupt-handlers-vector     ;JMG: blatantly for scsh.
-	  ))
+	  (interrupt :syntax)))
 
 (define-interface writing-interface
   (export write
diff --git a/scheme/more-interfaces.scm b/scheme/more-interfaces.scm
index 1596699..9d8b902 100644
--- a/scheme/more-interfaces.scm
+++ b/scheme/more-interfaces.scm
@@ -13,10 +13,6 @@
 	  command-continuation
 	  command-threads
 	  command-loop
-
-	  real-command-loop ;JMG: for scsh
-	  command-loop-condition-handler
-
           command-level-condition
 	  command-processor
 	  error-form ;foo
@@ -34,9 +30,6 @@
 	  run-sentinels
 	  set-focus-object!
 	  showing-focus-object		;inspect
-
-	  with-new-session            ;JMG:  for scsh
-
 	  start-command-processor
 	  restart-command-processor
 	  value->expression		;foo
@@ -69,11 +62,6 @@
 	  user-context-accessor
 	  user-context-modifier
 
-	  start-new-session ;JMG: 4 for scsh
-  	  really-push-command-level   
-	  ignore-further-interrupts
-	  notify-on-interrupts
-
 	  push-command-levels?
 
 	  command-input
@@ -177,8 +165,9 @@
   (export config-package
 	  new-command-processor
 	  get-structure
-	  user-environment   ;JMG 2 for scsh
+	  user-environment   ;JMG 3 for scsh
 	  get-reflective-tower
+	  in-package
 	  ;get-package
 	  ;set-package-evaluator!
 	  ))