scsh-0.5/vm/s48-package-defs.scm

32 lines
811 B
Scheme
Raw Normal View History

1995-10-13 23:34:21 -04:00
(define-structures ((pre-scheme pre-scheme-interface)
(memory-debug (export reinitialize-memory)))
(open scheme code-vectors bitwise ascii primitives signals)
(files prescheme ps-memory))
(define-structures ((vm-utilities vm-utilities-interface))
(open pre-scheme)
(files vm-utilities)
(begin
; (define-syntax assert
; (lambda (exp rename compare)
; 0))
(define (assert x)
(if (not x)
(error "assertion failed")))
))
(define-structures ((external external-interface))
(open scheme)
(for-syntax (open scheme signals)) ; for error
(files external))
; The number of usable bits in a small integer.
(define-structures ((system-spec (export useful-bits-per-word)))
(open pre-scheme)
(begin
(define useful-bits-per-word 30) ; in Scheme 48
))