remove unused case in TCO output

newt-vscode/src/extension.ts

@@ -32,10 +32,12 @@ export function activate(context: vscode.ExtensionContext) {
     const config = vscode.workspace.getConfiguration("newt");
     const cmd = config.get<string>("path", "build/exec/newt");
     const command = `${cmd} --top ${fileName}`;
+    let st = +new Date();
     exec(
       command,
       { cwd, maxBuffer: 1024 * 1024 * 10 },
       (err, stdout, _stderr) => {
+        console.log(`newt took ${+new Date() - st}`);
         // I think I ignored 1 here because I wanted failure to launch
         if (err && err.code !== 1)
           vscode.window.showErrorMessage(`newt error: ${err}`);

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