14 lines
411 B
Scheme
14 lines
411 B
Scheme
;; In Emacs, open this file in -*- Scheme -*- mode
|
|
|
|
;; Test the @xor primitive
|
|
|
|
(@byte-write 70)
|
|
|
|
(@byte-write (@xor 0 65)) ;A
|
|
(@byte-write (@xor 66 0)) ;B
|
|
(@byte-write (@xor 66 1)) ;C
|
|
(@byte-write (@xor -1 -69)) ;D
|
|
(@byte-write (if (@= (@xor 2018 2018) 0) 69 63)) ;E
|
|
(@byte-write (@xor 207 137)) ;F
|
|
|