9 lines
213 B
Scheme
9 lines
213 B
Scheme
;; 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
|