13 lines
372 B
Scheme
13 lines
372 B
Scheme
;; 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 (@- 66 -1)) ;C
|
|
(@byte-write (@- -1 -69)) ;D
|
|
(@byte-write (@- -1073741824 1073741755)) ;E
|
|
(@byte-write (@- -1073741754 -1073741824)) ;F
|