Factor SCSH-ERRORS out of SCSH-LEVEL-0.
This commit is contained in:
parent
186f745306
commit
0d4943b9b5
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue