29 lines
857 B
Scheme
29 lines
857 B
Scheme
|
|
||
|
|
(define-structures ((vm-utilities vm-utilities-interface))
|
||
|
|
(open pre-scheme)
|
||
|
|
(files vm-utilities)
|
||
|
|
(begin
|
||
|
|
(define-syntax assert
|
||
|
|
(lambda (exp rename compare)
|
||
|
|
0))
|
||
|
|
))
|
||
|
|
|
||
|
|
(define-structures ((external external-interface))
|
||
|
|
(open pre-scheme)
|
||
|
|
(begin
|
||
|
|
(define extended-vm (external (=> (int32 int32) int32) #f))
|
||
|
|
(define lookup-external-name (external (=> (int32 int32) boolean) #f))
|
||
|
|
(define ps-schedule-interrupt (external (=> (int32) int32) #f))
|
||
|
|
(define ps-real-time (external (=> () int32) #f))
|
||
|
|
(define ps-run-time (external (=> () int32) #f))
|
||
|
|
(define ps-ticks-per-second (external (=> () int32) #f))))
|
||
|
|
|
||
|
|
; 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 32) ; when compiled
|
||
|
|
))
|
||
|
|
|