remove unused case in TCO output

2025-03-30 09:39:09 -07:00
parent 7dc9751359
commit 4ec7519955
4 changed files with 88 additions and 85 deletions
--- a/src/Lib/TCO.newt
+++ b/src/Lib/TCO.newt
@@ -65,7 +65,7 @@ doOptimize : List (QName × CExp) → M (List (QName × CExp))
 doOptimize fns = do
  splitFuns <- traverse splitFun fns
  let nms = map fst fns
-  let alts = CConAlt "return" ("rval" :: Nil) (CBnd 0) :: map (mkAlt nms) splitFuns
+  let alts = map (mkAlt nms) splitFuns
  recName <- mkRecName nms
  let recfun = CFun ("arg" :: Nil) $ CCase (CBnd 0) alts
  wrapped <- traverse (mkWrap recName) fns