new instrs, tail-call
This commit is contained in:
@@ -16,13 +16,13 @@ test_root = testGroup "stack machine"
|
||||
[ testCase "immediate halt" do
|
||||
evalsTo [ObjImm (ImmInt 3)] [stkP|
|
||||
(define $start
|
||||
(tail-call 0))
|
||||
(return 0))
|
||||
|]
|
||||
, testCase "lit int" do
|
||||
evalsTo [ObjImm (ImmInt 3)] [stkP|
|
||||
(define $start
|
||||
(push! 3)
|
||||
(tail-call 1))
|
||||
(return 1))
|
||||
|]
|
||||
-- , testCase "return constant" do
|
||||
-- evalsTo [ObjImm (ImmInt 123)] [stkP|
|
||||
|
||||
Reference in New Issue
Block a user