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

added some exports for scsh

This commit is contained in:
marting 1999-09-19 19:03:51 +00:00
parent d5ed14075c
commit eaf83d0524
3 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scheme/interfaces.scm
View File

@ -229,7 +229,8 @@
; 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
@ -508,6 +509,7 @@
steal-channel-port! ;command steal-channel-port! ;command
steal-channel! ;JMG: For scsh. steal-channel! ;JMG: For scsh.
steal-port!
input-channel->port ;usual-resumer posix input-channel->port ;usual-resumer posix
output-channel->port ;usual-resumer posix output-channel->port ;usual-resumer posix
@ -592,6 +594,7 @@
(define-interface interrupts-interface (define-interface interrupts-interface
(export initialize-interrupts! ;init.scm (export initialize-interrupts! ;init.scm
with-interrupts ;JMG: For scsh
all-interrupts all-interrupts
no-interrupts no-interrupts
;reset-timer-interrupts! ;reset-timer-interrupts!
@ -607,7 +610,9 @@
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

5
scheme/more-interfaces.scm
View File

@ -13,6 +13,7 @@
command-continuation command-continuation
command-threads command-threads
command-loop command-loop
real-command-loop ;JMG: for scsh
command-level-condition command-level-condition
command-processor command-processor
error-form ;foo error-form ;foo
@ -30,6 +31,7 @@
run-sentinels run-sentinels
set-focus-object! set-focus-object!
showing-focus-object ;inspect showing-focus-object ;inspect
with-new-session ;scsh
start-command-processor start-command-processor
restart-command-processor restart-command-processor
value->expression ;foo value->expression ;foo
@ -62,6 +64,7 @@
user-context-accessor user-context-accessor
user-context-modifier user-context-modifier
start-new-session ;JMG: for scsh
push-command-levels? push-command-levels?
command-input command-input
@ -165,6 +168,8 @@
(export config-package (export config-package
new-command-processor new-command-processor
get-structure get-structure
user-environment ;JMG 2 for scsh
get-reflective-tower
;get-package ;get-package
;set-package-evaluator! ;set-package-evaluator!
)) ))

3
scheme/more-packages.scm
View File

@ -103,6 +103,8 @@
; Image builder. ; Image builder.
(define-structures ((build (export build-image stand-alone-resumer)) (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)) (build-commands build-commands-interface))
(open scheme-level-2 (open scheme-level-2
command-processor command-processor
@ -721,6 +723,7 @@
shadowing shadowing
;; Compatibility ;; Compatibility
record table record table
build-internals ;added by JMG
) )
:structure) :structure)
((define-signature define-package) :syntax))) ((define-signature define-package) :syntax)))