15 lines
483 B
Scheme
15 lines
483 B
Scheme
;; In Emacs, open this file in -*- Scheme -*- mode
|
|
|
|
;; Test the @int? primitive
|
|
|
|
(@byte-write 72)
|
|
|
|
(@byte-write (if (@int? 0) 65 63)) ;A
|
|
(@byte-write (if (@int? 1073741823) 66 63)) ;B
|
|
(@byte-write (if (@int? -1073741824) 67 63)) ;C
|
|
(@byte-write (if (@int? '1') 63 68)) ;D
|
|
(@byte-write (if (@int? "1") 63 69)) ;E
|
|
(@byte-write (if (@int? #t) 63 70)) ;F
|
|
(@byte-write (if (@int? #f) 63 71)) ;G
|
|
(@byte-write (if (@int? #u) 63 72)) ;H
|