30 lines
822 B
Scheme
30 lines
822 B
Scheme
|
; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees. See file COPYING.
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
; The following several packages have Scheme-implementation-specific
|
||
|
|
; variants that are much better for one reason or another than
|
||
|
|
; the generic versions defined here.
|
||
|
|
|
||
|
|
(define-structures ((signals signals-interface)
|
||
|
|
(handle (export ignore-errors))
|
||
|
|
(features features-interface))
|
||
|
|
(open scheme-level-2)
|
||
|
|
(files features))
|
||
|
|
|
||
|
|
(define-structure records records-interface
|
||
|
|
(open scheme-level-2 signals)
|
||
|
|
(files record))
|
||
|
|
|
||
|
|
(define-structure ascii (export ascii->char char->ascii)
|
||
|
|
(open scheme-level-2 signals)
|
||
|
|
(files ascii))
|
||
|
|
|
||
|
|
(define-structure bitwise bitwise-interface
|
||
|
|
(open scheme-level-2 signals)
|
||
|
|
(files bitwise))
|
||
|
|
|
||
|
|
(define-structure code-vectors code-vectors-interface
|
||
|
|
(open scheme-level-1)
|
||
|
|
(files code-vectors))
|