Merge pull request #1474 from actonlang/1473-fix-llift-unstable-param…

…eter-order Made the parameters added to closures insensitive...
actonlang · Sep 8, 2023 · b990a48 · b990a48
2 parents 6813cab + d572be4
commit b990a48
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/compiler/Acton/LambdaLifter.hs b/compiler/Acton/LambdaLifter.hs
@@ -132,7 +132,7 @@ extFree m env                   = modX env $ \x -> x{ freemapX = m ++ freemap en
 extNames m env                  = modX env $ \x -> x{ namemapX = m ++ namemap env }
 
 findFree n env                  = case lookup n (freemap env) of
-                                    Just vs -> Just $ restrict (locals env) vs
+                                    Just vs -> Just [ (v,t) | v <- vs, Just t <- [lookup v $ locals env] ]
                                     _ -> Nothing