Aoc passes, and it successfully compiles itself.

port/Lib/CompileExp.newt

@@ -138,7 +138,7 @@ compileTerm (UU _) = pure $ CRef "U"
 compileTerm (Pi _ nm icit rig t u) = do
   t' <- compileTerm t
   u' <- compileTerm u
-  pure $ CApp (CRef "PiType") (t' :: u' :: Nil) 0
+  pure $ CApp (CRef "PiType") (t' :: CLam nm u' :: Nil) 0
 compileTerm (Case _ t alts) = do
   t' <- compileTerm t
   alts' <- for alts $ \case

port/Lib/Elab.newt

@@ -257,7 +257,7 @@ solveAutos mstart = do
   top <- get
   mc <- readIORef top.metaCtx
   let mlen = length' mc.metas - mstart
-  res <- run $ filter isAuto (take (cast mlen) mc.metas)
+  res <- run $ filter isAuto (ite (mstart == 0) mc.metas $ take (cast mlen) mc.metas)
   if res then solveAutos mstart else pure MkUnit
   where
     isAuto : MetaEntry -> Bool

port/Lib/Prettier.newt

@@ -80,7 +80,7 @@ class Pretty a where
 
 
 render : Int -> Doc -> String
-render w x = layout (best w 0 x) Lin
+render w x = layout (best w 0 (noAlt x)) Lin
 
 
 instance Semigroup Doc where x <+> y = Seq x (Seq (Text " ") y)

port/Main.newt

@@ -193,7 +193,8 @@ processFile fn = do
   processDecl ("Prim" :: Nil) (PType emptyFC "Int" Nothing)
   processDecl ("Prim" :: Nil) (PType emptyFC "String" Nothing)
   processDecl ("Prim" :: Nil) (PType emptyFC "Char" Nothing)
-  let base = "aoc2024" -- FIXME
+  -- let base = "aoc2024" -- FIXME
+  let base = "port" -- FIXME
   src <- processModule emptyFC base Nil (QN path modName')
   top <- get
   -- -- dumpContext top