scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

removed some exports for scsh

This commit is contained in:
marting 1999-10-05 14:54:37 +00:00
parent 81358acc7b
commit 18d41a4a16
2 changed files with 4 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/interfaces.scm
View File

@ -229,8 +229,7 @@
; Another hodge-podge. ; Another hodge-podge.
(define-interface low-level-interface (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 (define-interface vm-exposure-interface
(export invoke-closure ;eval (export invoke-closure ;eval
@ -595,7 +594,6 @@
(define-interface interrupts-interface (define-interface interrupts-interface
(export initialize-interrupts! ;init.scm (export initialize-interrupts! ;init.scm
; with-interrupts ;JMG: no longer for scsh
all-interrupts all-interrupts
no-interrupts no-interrupts
;reset-timer-interrupts! ;reset-timer-interrupts!
@ -611,9 +609,7 @@
with-interrupts-inhibited with-interrupts-inhibited
call-after-gc! call-after-gc!
call-before-heap-overflow! call-before-heap-overflow!
(interrupt :syntax) (interrupt :syntax)))
; interrupt-handlers-vector ;JMG: blatantly for scsh.
))
(define-interface writing-interface (define-interface writing-interface
(export write (export write

15
scheme/more-interfaces.scm
View File

@ -13,10 +13,6 @@
command-continuation command-continuation
command-threads command-threads
command-loop command-loop
real-command-loop ;JMG: for scsh
command-loop-condition-handler
command-level-condition command-level-condition
command-processor command-processor
error-form ;foo error-form ;foo
@ -34,9 +30,6 @@
run-sentinels run-sentinels
set-focus-object! set-focus-object!
showing-focus-object ;inspect showing-focus-object ;inspect
with-new-session ;JMG: for scsh
start-command-processor start-command-processor
restart-command-processor restart-command-processor
value->expression ;foo value->expression ;foo
@ -69,11 +62,6 @@
user-context-accessor user-context-accessor
user-context-modifier user-context-modifier
start-new-session ;JMG: 4 for scsh
really-push-command-level
ignore-further-interrupts
notify-on-interrupts
push-command-levels? push-command-levels?
command-input command-input
@ -177,8 +165,9 @@
(export config-package (export config-package
new-command-processor new-command-processor
get-structure get-structure
user-environment ;JMG 2 for scsh user-environment ;JMG 3 for scsh
get-reflective-tower get-reflective-tower
in-package
;get-package ;get-package
;set-package-evaluator! ;set-package-evaluator!
)) ))