1234567891011121314151617181920212223242526272829303132333435363738394041424344 |
- (define-structure escapes escapes-interface
- (open scheme-level-2 define-record-types low-exceptions)
- (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
- features
- low-exceptions
-
- )
- (files primitives
- weak
- contin))
- (define-structure code-quotation (export (code-quote :syntax))
- (open scheme-level-2)
- (begin
- (define-syntax code-quote
- (lambda (e r c)
- e))))
- (define-structure syntax-transformers syntax-transformers-interface
- (open scheme-level-2)
- (files "../rts/low-syntax"))
|