17 lines
303 B
Plaintext
17 lines
303 B
Plaintext
|
;; In Emacs, open this file in -*- Scheme -*- mode
|
||
|
|
|
||
|
|
;; Test the "begin" expression
|
||
|
|
|
||
|
|
(@byte-write 67)
|
||
|
|
|
||
|
|
(begin
|
||
|
|
(@byte-write 65)
|
||
|
|
(@byte-write 66))
|
||
|
|
|
||
|
|
(let ((b (@block-alloc-0 2)))
|
||
|
|
(@byte-write
|
||
|
|
(begin
|
||
|
|
(@block-set! b 0 60)
|
||
|
|
(@block-set! b 1 7)
|
||
|
|
(@+ (@block-get b 0) (@block-get b 1)))))
|