Disabled external gits
This commit is contained in:
11
cs420-acc/l3-compiler/tests/prim-unitp.l3
Normal file
11
cs420-acc/l3-compiler/tests/prim-unitp.l3
Normal file
@@ -0,0 +1,11 @@
|
||||
;; 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
|
Reference in New Issue
Block a user