From 64cca08d28135b115ed61543410b8fcf518e5cfc Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 1 Aug 2005 22:22:57 +0000 Subject: [PATCH] fixed unit/sig rename bug - PR 7518 svn: r527 --- collects/mzlib/unitsig.ss | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/mzlib/unitsig.ss b/collects/mzlib/unitsig.ss index 2cc060e786..d12874e0aa 100644 --- 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)]