added some exports for scsh

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,6 +509,7 @@
 
 	  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

scheme/more-interfaces.scm

@@ -13,6 +13,7 @@
 	  command-continuation
 	  command-threads
 	  command-loop
+	  real-command-loop ;JMG: for scsh
           command-level-condition
 	  command-processor
 	  error-form ;foo
@@ -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!
 	  ))

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)))