correctly handle push-calls!!!!!!!!

2026-08-18 16:15:12 -06:00
parent 1c13de4153
commit a73b3ed89b
3 changed files with 58 additions and 16 deletions
@@ -63,7 +63,7 @@ condition = testCase "if" do
    [cps|(if #f (continue halt 123) (continue halt 456))|]

 procedure = testGroup "procedure"
-  [ expectFail $ testCase "factorial" do
+  [ testCase "factorial" do
      evalsTo [ObjImm (ImmInt 720)]
        [cps|(letrec ((fac (λ (n ktail)
                             (prim (zero? n)