16 lines
267 B
Scheme
16 lines
267 B
Scheme
;; In Emacs, open this file in -*- Scheme -*- mode
|
|
|
|
;; Test the "halt" statement
|
|
|
|
(@byte-write 66)
|
|
|
|
(halt (begin
|
|
(@byte-write 65)
|
|
(halt (begin
|
|
(@byte-write 66)
|
|
0))
|
|
(@byte-write 63)
|
|
1))
|
|
|
|
(@byte-write 63)
|