pass continuations as arguments, use normal stack

2026-08-24 23:41:52 -06:00
parent 796b967686
commit 87baed9efc
13 changed files with 158 additions and 136 deletions
@@ -34,8 +34,8 @@ test_cpsInterpreter = testGroup "cps interpreter" $
      |]
  ]

-evalsTo :: HasCallStack => List Obj -> Sut.Program -> Assertion
-evalsTo rs p = Sut.evalProgram p @?= rs
+evalsTo :: HasCallStack => List Obj -> Sut.Exp -> Assertion
+evalsTo rs e = Sut.evalExp e @?= rs

 primitives = testGroup "primitives"
  [ testGroup "arith"