Update LiftLambda to erase Zero args

This commit is contained in:
2025-10-26 09:40:41 -07:00
parent 7055874dbb
commit d763be55d4
6 changed files with 18 additions and 16 deletions

View File

@@ -119,7 +119,6 @@ compileTerm t@(Ref fc nm@(QN _ tag)) = do
arity <- arityForName fc nm
defs <- getRef Defs
case arity of
-- we don't need to curry functions that take one argument
Nil =>
case the (Maybe Def) $ lookupMap' nm defs of
Just (DCon ix EnumCon _ _) => pure $ CLit $ LInt $ cast ix