9 lines
213 B
Plaintext
9 lines
213 B
Plaintext
|
;; In Emacs, open this file in -*- Scheme -*- mode
|
||
|
|
|
||
|
|
;; Test the @block-length primitive
|
||
|
|
|
||
|
|
(@byte-write 66)
|
||
|
|
|
||
|
|
(@byte-write (@block-length (@block-alloc-0 65))) ;A
|
||
|
|
(@byte-write (@block-length (@block-alloc-1 66))) ;B
|