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