Mercurial > urweb

diff src/elaborate.sml @ 1991:7db8356caef5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tweaked parameter renaming for functors, so now demos and the original bug-triggering application work
author Adam Chlipala <adam@chlipala.net>
date Thu, 20 Feb 2014 15:50:33 -0500
parents 210fb3dfc483
children 799be3911ce3
line wrap: on
line diff
--- a/src/elaborate.sml	Thu Feb 20 10:48:17 2014 -0500
+++ b/src/elaborate.sml	Thu Feb 20 15:50:33 2014 -0500
@@ -4455,16 +4455,6 @@
                         subSgn env' loc actual ran';
                         (ran', gs)
                     end
-
-            (* Later compiler phases are simplified by alpha-varying
-             * the functor formal argument here, if the same name
-             * will be defined independently in the functor body. *)
-            fun ensureUnused m =
-                case E.projectStr env' {sgn = actual, str = (L'.StrVar 0, loc), field = m} of
-                    NONE => m
-                  | SOME _ => ensureUnused ("?" ^ m)
-
-            val m = ensureUnused m
         in
             ((L'.StrFun (m, n, dom', formal, str'), loc),
              (L'.SgnFun (m, n, dom', formal), loc),