Aoc passes, and it successfully compiles itself.

2025-01-05 13:56:38 -08:00
parent 9172d88be7
commit 627ca5d91b
6 changed files with 18 additions and 12 deletions
--- a/port/Lib/CompileExp.newt
+++ b/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