Replaced #%variable-reference with quote-module-path for unit contract blame.

svn: r17781 original commit: d00e3432d960ea24ea6b25f34bbedd2002ba4041
2010-01-23 18:31:10 +00:00 · 2010-01-23 18:31:10 +00:00 · ae2dbe30b1
commit ae2dbe30b1
parent 02ce7aabdb
1 changed files with 2 additions and 1 deletions
--- a/collects/mzlib/unit.ss
+++ b/collects/mzlib/unit.ss
@ -16,6 +16,7 @@
 (require mzlib/etc
         scheme/contract/base
         scheme/stxparam
+         unstable/location
         "private/unit-contract.ss"
         "private/unit-keywords.ss"
         "private/unit-runtime.ss"
@ -1294,7 +1295,7 @@
                     (((wrap-code ...) ...)
                      (map (λ (os ov tbs)
                             (define rename-bindings 
-                               (get-member-bindings def-table os #'(#%variable-reference)))
+                               (get-member-bindings def-table os #'(quote-module-path)))
                             (map (λ (tb i v c)
                                    (if c
                                        (with-syntax ([ctc-stx