| 123456789101112131415161718192021222324252627282930 |
- ; Copyright (c) 1993-2008 by Richard Kelsey and Jonathan Rees. See file COPYING.
- (define-structure vm-utilities vm-utilities-interface
- (open scheme prescheme)
- (files (util vm-utilities))
- (begin
- ; (define-syntax assert
- ; (lambda (exp rename compare)
- ; 0))
- (define (assert x)
- (if (not x)
- (error "assertion failed")))
- ))
- (define-structure external external-interface
- (open scheme bitwise ps-memory)
- (for-syntax (open scheme signals)) ; for error
- (files (util external)))
- (define-structures ((channel-io channel-interface)
- (events event-interface))
- (open scheme big-scheme ps-memory ports
- (subset i/o (current-error-port))
- (modify prescheme (prefix prescheme:)
- (expose open-input-file open-output-file
- close-input-port close-output-port
- errors)))
- (files (util s48-channel)))
|
