fixed unit/sig rename bug - PR 7518

svn: r527 original commit: 64cca08d28135b115ed61543410b8fcf518e5cfc
2005-08-01 22:22:57 +00:00 · 2005-08-01 22:22:57 +00:00 · c3a6f7e51b
commit c3a6f7e51b
parent fc226432e3
1 changed files with 4 additions and 3 deletions
--- a/collects/mzlib/unitsig.ss
+++ b/collects/mzlib/unitsig.ss
@ -56,9 +56,10 @@
 						(parsed-unit-vars a-unit))
 				      (map
 				       (lambda (name)
-					 (list (hash-table-get vars
-							       name
-							       (lambda () (do-rename name (parsed-unit-renames a-unit))))
+					 (list (let ([name (do-rename name (parsed-unit-renames a-unit))])
+						 (hash-table-get vars
+								 name
+								 (lambda () name)))
 					       name))
 				       (signature-vars sig)))
 				    expr)]