call/cc

test/Gyehoek/Test/CPS/Stackify.hs

@@ -53,6 +53,12 @@ prim = testGroup "prim"
       evalsTo [ObjImm (ImmInt 9)]
         [cps|(prim (+ 4 5)
                (κ (x) (continue halt x)))|]
+  -- , testGroup "call/cc"
+  --   [ testCase "trivial" do
+  --       evalsTo [ObjImm (ImmInt 123)]
+  --         [cps|(letrec ((f (λ (cc ktail) (continue cc 123))))
+  --                (prim (call/cc f)))|]
+  --   ]
   ]
 
 condition = testCase "if" do

test/Gyehoek/Test/Golden.hs

@@ -19,13 +19,7 @@ import Test.Tasty.ExpectedFailure (expectFail)
 
 brokenWasmTests :: List String
 brokenWasmTests =
-  [ "adder"
-  , "apply-twice"
-  , "square"
-  , "fn-of-fn"
-  , "let-fn"
-  , "apply2"
-  , "factorial"
+  [
   ]
 
 brokenStackifyTests :: List String
@@ -42,8 +36,8 @@ root = do
   let tests = all_cases
             & fmap ("golden"</>)
   testGroup "golden" <$> sequenceA
-    [ wasmTests tests
-    , stackifyTests tests
+    [ {-wasmTests tests
+    , -}stackifyTests tests
     ]
 
 maybeBroken name broken = applyWhen (name `elem` broken) expectFail