remove unused case in TCO output

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

src/Main.newt

@@ -133,6 +133,7 @@ processModule importFC base stk qn@(QN ns nm) = do
 
   putStrLn "module \{modName}"
   top <- getTop
+  -- TODO we need a flag on this so `make newt3.js` properly tests self-compile
   (Nothing) <- loadModule qn csum
     | Just mod => do
       let modules = updateMap modns mod top.modules