22 lines
410 B
Scheme
22 lines
410 B
Scheme
(define-structure dir-streams dir-streams-interface
|
|
(open scheme-with-scsh
|
|
handle
|
|
conditions
|
|
define-record-types
|
|
let-opt
|
|
records
|
|
streams)
|
|
(files dir-stream))
|
|
|
|
(define-structure dir-stream-predicates dir-stream-predicates-interfaces
|
|
(open
|
|
scheme-with-scsh
|
|
dir-streams)
|
|
(files dir-stream-predicates))
|
|
|
|
(define-structure streams
|
|
streams-interface
|
|
(open scheme
|
|
signals)
|
|
(files stream))
|