From eaf83d0524b8cb15170d18ce3987e2833dc6926a Mon Sep 17 00:00:00 2001
From: marting <marting>
Date: Sun, 19 Sep 1999 19:03:51 +0000
Subject: [PATCH] added some exports for scsh

---
 scheme/interfaces.scm      | 11 ++++++++---
 scheme/more-interfaces.scm |  7 ++++++-
 scheme/more-packages.scm   |  3 +++
 3 files changed, 17 insertions(+), 4 deletions(-)

diff --git a/scheme/interfaces.scm b/scheme/interfaces.scm
index 1b7ad4e..6e616b5 100644
--- a/scheme/interfaces.scm
+++ b/scheme/interfaces.scm
@@ -229,7 +229,8 @@
 ; Another hodge-podge.
 
 (define-interface low-level-interface
-  (export vector-unassigned?))		;inspector
+  (export vector-unassigned?		;inspector
+	  flush-the-symbol-table!)); JMG : for scsh
 
 (define-interface vm-exposure-interface
   (export invoke-closure		;eval
@@ -508,7 +509,8 @@
 
 	  steal-channel-port!		;command
 	  steal-channel!                ;JMG: For scsh.
-	  
+	  steal-port! 
+
 	  input-channel->port           ;usual-resumer posix
 	  output-channel->port          ;usual-resumer posix
 
@@ -592,6 +594,7 @@
 
 (define-interface interrupts-interface
   (export initialize-interrupts!	;init.scm
+	  with-interrupts               ;JMG: For scsh
 	  all-interrupts
 	  no-interrupts
 	  ;reset-timer-interrupts!
@@ -607,7 +610,9 @@
 	  with-interrupts-inhibited
 	  call-after-gc!
 	  call-before-heap-overflow!
-	  (interrupt :syntax)))
+	  (interrupt :syntax)
+	  interrupt-handlers-vector     ;JMG: blatantly for scsh.
+	  ))
 
 (define-interface writing-interface
   (export write
diff --git a/scheme/more-interfaces.scm b/scheme/more-interfaces.scm
index 8f9274b..eb840c7 100644
--- a/scheme/more-interfaces.scm
+++ b/scheme/more-interfaces.scm
@@ -13,7 +13,8 @@
 	  command-continuation
 	  command-threads
 	  command-loop
-	  command-level-condition
+	  real-command-loop ;JMG: for scsh
+          command-level-condition
 	  command-processor
 	  error-form ;foo
 	  execute-command
@@ -30,6 +31,7 @@
 	  run-sentinels
 	  set-focus-object!
 	  showing-focus-object		;inspect
+	  with-new-session            ;scsh
 	  start-command-processor
 	  restart-command-processor
 	  value->expression		;foo
@@ -62,6 +64,7 @@
 	  user-context-accessor
 	  user-context-modifier
 
+	  start-new-session ;JMG: for scsh
 	  push-command-levels?
 
 	  command-input
@@ -165,6 +168,8 @@
   (export config-package
 	  new-command-processor
 	  get-structure
+	  user-environment   ;JMG 2 for scsh
+	  get-reflective-tower
 	  ;get-package
 	  ;set-package-evaluator!
 	  ))
diff --git a/scheme/more-packages.scm b/scheme/more-packages.scm
index b4d3be3..b06f7f0 100644
--- a/scheme/more-packages.scm
+++ b/scheme/more-packages.scm
@@ -103,6 +103,8 @@
 ; Image builder.
 
 (define-structures ((build (export build-image stand-alone-resumer))
+		    ;JMG added structure for scsh
+		    (build-internals (export simple-condition-handler))
 		    (build-commands build-commands-interface))
   (open scheme-level-2
         command-processor
@@ -721,6 +723,7 @@
 	    shadowing
 	    ;; Compatibility
 	    record table
+	    build-internals                  ;added by JMG
 	    )
 	   :structure)
 	  ((define-signature define-package) :syntax)))