29 lines
884 B
Scheme
29 lines
884 B
Scheme
|
; Copyright (c) 1993-1999 by Richard Kelsey and Jonathan Rees. See file COPYING.
|
||
|
|
|
||
|
|
; Alternate implementations of the low-structures.
|
||
|
|
; Cf. low-structures-interface in ../packages.scm and ../alt-structures.scm.
|
||
|
|
|
||
|
|
; Most of the low-structures are assumed to be inherited or obtained
|
||
|
|
; elsewhere (probably from a running Scheme 48). This only defines
|
||
|
|
; structures that export privileged operations.
|
||
|
|
|
||
|
|
(define-structure escapes escapes-interface
|
||
|
|
(open scheme-level-2 define-record-types signals)
|
||
|
|
(files escape))
|
||
|
|
|
||
|
|
(define-structures ((primitives primitives-interface)
|
||
|
|
(primitives-internal (export maybe-handle-interrupt
|
||
|
|
raise-exception
|
||
|
|
get-exception-handler
|
||
|
|
?start)))
|
||
|
|
(open scheme-level-2
|
||
|
|
define-record-types
|
||
|
|
bitwise ;Only for re-export
|
||
|
|
features ;Only for re-export
|
||
|
|
signals
|
||
|
|
;; templates -- unneeded now?
|
||
|
|
)
|
||
|
|
(files primitives
|
||
|
|
weak
|
||
|
|
contin))
|