27 lines
813 B
Scheme
27 lines
813 B
Scheme
|
; Copyright (c) 1993, 1994 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
|
||
|
|
bitwise define-record-types
|
||
|
|
features
|
||
|
|
signals
|
||
|
|
templates)
|
||
|
|
(files primitives
|
||
|
|
weak
|
||
|
|
contin))
|