Disabled external gits
This commit is contained in:
15
cs420-acc/l3-compiler/tests/stmt-halt.l3
Normal file
15
cs420-acc/l3-compiler/tests/stmt-halt.l3
Normal file
@@ -0,0 +1,15 @@
|
||||
;; In Emacs, open this file in -*- Scheme -*- mode
|
||||
|
||||
;; Test the "halt" statement
|
||||
|
||||
(@byte-write 66)
|
||||
|
||||
(halt (begin
|
||||
(@byte-write 65)
|
||||
(halt (begin
|
||||
(@byte-write 66)
|
||||
0))
|
||||
(@byte-write 63)
|
||||
1))
|
||||
|
||||
(@byte-write 63)
|
Reference in New Issue
Block a user