13 lines
354 B
Plaintext
13 lines
354 B
Plaintext
|
;; In Emacs, open this file in -*- Scheme -*- mode
|
||
|
|
|
||
|
|
;; Test the @+ primitive
|
||
|
|
|
||
|
|
(@byte-write 70)
|
||
|
|
|
||
|
|
(@byte-write (@+ 65 0)) ;A
|
||
|
|
(@byte-write (@+ 0 66)) ;B
|
||
|
|
(@byte-write (@+ 68 -1)) ;C
|
||
|
|
(@byte-write (@+ -1 69)) ;D
|
||
|
|
(@byte-write (@+ 1073741823 70)) ;E
|
||
|
|
(@byte-write (@+ 71 1073741823)) ;F
|