19 lines
417 B
Scheme
19 lines
417 B
Scheme
(define-structure vm
|
|
(export kmain keyboard-handler
|
|
)
|
|
(open prescheme ps-memory ps-receive ps-macros (modify terminal (prefix terminal:)))
|
|
(for-syntax (open scheme bitwise))
|
|
(files ev))
|
|
|
|
(define-structure ps-macros
|
|
(export cond-expand)
|
|
(open prescheme)
|
|
(files ps-macros))
|
|
|
|
(define-structure terminal
|
|
(export initialize put-number put-char)
|
|
(open prescheme ps-memory)
|
|
(files terminal))
|
|
|
|
|