lowerslop

app/Gyehoek/CPS/Convert.hs

@@ -45,6 +45,3 @@ convert (Scm.ExpApply f xs) k =
     pure $ ExpFix [(r, MkKappa [x] m)] $ ExpApply f' (xs' ++ [ValVar r])
 
 convert _ k = _
-
-halt :: Applicative f => Val -> f Exp
-halt = pure . ExpApply (ValVar "halt") . pure