Fixed the pulling up of replicators when they are free names (something that was broken in the original Rep change)

2008-06-04 19:06:05 +00:00 · 2008-06-04 19:06:05 +00:00 · 069cfd9a9f
commit 069cfd9a9f
parent e2dac3aa76
1 changed files with 1 additions and 0 deletions
--- a/transformations/Unnest.hs
+++ b/transformations/Unnest.hs
@ -163,6 +163,7 @@ removeFreeNames = pass "Convert free names to arguments"
                A.IsChannelArray {} -> True
                A.Retypes {} -> True
                A.RetypesExpr {} -> True
+                A.Rep {} -> True
                _ -> False

    -- | Add the extra arguments we recorded when we saw the definition.