13 lines
399 B
Plaintext
13 lines
399 B
Plaintext
|
;; In Emacs, open this file in -*- Scheme -*- mode
|
||
|
|
|
||
|
|
;; Test the @* primitive
|
||
|
|
|
||
|
|
(@byte-write 70)
|
||
|
|
|
||
|
|
(@byte-write (@* 65 1)) ;A
|
||
|
|
(@byte-write (@* -1 -66)) ;B
|
||
|
|
(@byte-write (@* -67 -1)) ;C
|
||
|
|
(@byte-write (@* -2 -34)) ;D
|
||
|
|
(@byte-write (if (@= (@* 1073741823 2) -2) 69 63)) ;E
|
||
|
|
(@byte-write (if (@= (@* -1073741822 17) -1073741790) 70 63)) ;F
|