Refactor code generation to prepare for optimization passes

2025-02-01 11:27:52 -08:00
parent 1490fc601b
commit fad966b1ec
14 changed files with 597 additions and 608 deletions
--- a/port/Lib/Util.newt
+++ b/port/Lib/Util.newt
@@ -5,6 +5,10 @@ import Lib.Common
 import Lib.Types
 import Data.List1

+-- pi arity is primitive functions
+piArity : Tm -> Nat
+piArity (Pi _ _ _ quant _ b) = S (piArity b)
+piArity _ = Z

 funArgs : Tm -> (Tm × List Tm)
 funArgs tm = go tm Nil