stack vm throws jalmot

test/Gyehoek/Test/CPS/Stackify.hs

@@ -9,6 +9,7 @@ import Gyehoek.CPS.Syntax qualified as CPS
 import Gyehoek.GenSym (runGenSym)
 import Effectful
 import Gyehoek.Prelude
+import Gyehoek.Jalmot
 
 
 test_stackify =
@@ -20,7 +21,7 @@ test_stackify =
   ]
 
 evalsTo :: List Obj -> Sut.Exp -> Assertion
-evalsTo rs e = Stk.eval e' @?= rs
+evalsTo rs e = runJalmotUnsafe (Stk.eval e') @?= rs
   where
     e' = e & CPS.MkLambda [] "_ktail"
       & CPS.MkProgram