Factor SCSH-ERRORS out of SCSH-LEVEL-0.

This commit is contained in:
sperber 2002-09-03 12:25:12 +00:00
parent 186f745306
commit 0d4943b9b5
1 changed files with 8 additions and 2 deletions

View File

@ -86,6 +86,11 @@
(open scheme) (open scheme)
(files scsh-version)) (files scsh-version))
(define-structure scsh-errors scsh-errors-interface
(open scheme
handle conditions signals)
(files scsh-condition))
(define-structure partial-s48-ports (define-structure partial-s48-ports
(export current-input-port current-output-port (export current-input-port current-output-port
newline newline
@ -209,7 +214,9 @@
command-levels command-levels
features features
general-tables general-tables
simple-syntax) simple-syntax
scsh-errors)
(for-syntax (open scsh-syntax-helpers scheme)) (for-syntax (open scsh-syntax-helpers scheme))
(access interrupts (access interrupts
sort sort
@ -226,7 +233,6 @@
; select ; select
fname fname
stringcoll stringcoll
scsh-condition
rw rw
newports newports
fdports fdports