enable some working tests

2026-08-18 23:57:31 -06:00
parent ca1b53f3d1
commit 94b1a5fb45
6 changed files with 10 additions and 12 deletions
@@ -45,7 +45,6 @@ convert (Scm.ExpLit l) k = k $ ValLit l
 -- special case: call/cc is desugared during cps-conversion...
 convert (Scm.ExpPrim (PrimCallCC withcc)) k = do
  convert withcc \withcc' -> do
-    callcc <- gensym' @Name "call/cc"
    cc <- gensym' @Name "cc"
    r <- gensym' "r"
    m <- k $ ValVar r