call/cc

2026-08-18 23:13:32 -06:00
parent 8bdbfafb9c
commit eb51f4fff7
7 changed files with 71 additions and 50 deletions
@@ -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