Commit addb084e authored by simonpj's avatar simonpj
Browse files

[project @ 2005-03-16 10:46:32 by simonpj]

Localise the binder for the nested defn in LiberateCase,
to avoid name clashes between top-level names.
Discovered by Laszlo.

	Merge to STABLE
parent 0e310341
...@@ -191,7 +191,7 @@ libCaseBind env (Rec pairs) ...@@ -191,7 +191,7 @@ libCaseBind env (Rec pairs)
-- processing the rhs with an *un-extended* environment, so -- processing the rhs with an *un-extended* environment, so
-- that the same process doesn't occur for ever! -- that the same process doesn't occur for ever!
-- --
extended_env = addRecBinds env [ (setIdNotExported binder, libCase env_body rhs) extended_env = addRecBinds env [ (adjust binder, libCase env_body rhs)
| (binder, rhs) <- pairs ] | (binder, rhs) <- pairs ]
-- Two subtle things: -- Two subtle things:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment