13 lines
338 B
Scheme
13 lines
338 B
Scheme
;; In Emacs, open this file in -*- Scheme -*- mode
|
|
|
|
;; Test the @or primitive
|
|
|
|
(@byte-write 69)
|
|
|
|
(@byte-write (@or 0 65)) ;A
|
|
(@byte-write (@or 66 0)) ;B
|
|
(@byte-write (@or 66 1)) ;C
|
|
(@byte-write (if (@= (@or -1 68) -1) 68 63)) ;D
|
|
(@byte-write (@or 68 65)) ;E
|
|
|