14 lines
496 B
Plaintext
14 lines
496 B
Plaintext
|
;; In Emacs, open this file in -*- Scheme -*- mode
|
||
|
|
|
||
|
|
;; Test the @<= primitive
|
||
|
|
|
||
|
|
(@byte-write 71)
|
||
|
|
|
||
|
|
(@byte-write (if (@<= -1073741824 1073741823) 65 63)) ;A
|
||
|
|
(@byte-write (if (@<= 1073741823 -1073741824) 63 66)) ;B
|
||
|
|
(@byte-write (if (@<= 0 1) 67 63)) ;C
|
||
|
|
(@byte-write (if (@<= 1 0) 63 68)) ;D
|
||
|
|
(@byte-write (if (@<= 2018 2018) 69 63)) ;E
|
||
|
|
(@byte-write (if (@<= 2017 2018) 70 63)) ;F
|
||
|
|
(@byte-write (if (@<= -2018 -2017) 71 63)) ;G
|