;; 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