;; In Emacs, open this file in -*- Scheme -*- mode

;; Test the @unit? primitive

(@byte-write 69)

(@byte-write (if (@unit? #u) 65 63))    ;A
(@byte-write (if (@unit? #t) 63 66))    ;B
(@byte-write (if (@unit? #f) 63 67))    ;C
(@byte-write (if (@unit? 1) 67 68))     ;D
(@byte-write (if (@unit? "1") 68 69))   ;E