9 lines
257 B
Scheme
9 lines
257 B
Scheme
;; In Emacs, open this file in -*- Scheme -*- mode
|
|
|
|
;; Test the @block-alloc-0? primitive
|
|
|
|
(@byte-write 66)
|
|
|
|
(@byte-write (if (@= (@block-alloc-0 0) (@block-alloc-0 0)) 63 65)) ;A
|
|
(@byte-write (if (not (@= (@block-alloc-0 0) (@block-alloc-0 0))) 66 63)) ;B
|