Disabled external gits
This commit is contained in:
18
cs420-acc/l3-compiler/tests/expr-cond.l3
Normal file
18
cs420-acc/l3-compiler/tests/expr-cond.l3
Normal file
@@ -0,0 +1,18 @@
|
||||
;; In Emacs, open this file in -*- Scheme -*- mode
|
||||
|
||||
;; Test the "cond" expression
|
||||
|
||||
(@byte-write 68)
|
||||
|
||||
(cond (#t (@byte-write 65))
|
||||
(#t (@byte-write 63)))
|
||||
|
||||
(cond (#f (@byte-write 63))
|
||||
(#f (@byte-write 63))
|
||||
(#t (@byte-write 66)))
|
||||
|
||||
(@byte-write (cond (#f 63)
|
||||
(67 67)
|
||||
(#t 63)))
|
||||
|
||||
(cond ((@= #u (cond (#f 12))) (@byte-write 68)))
|
Reference in New Issue
Block a user