From d00e3432d960ea24ea6b25f34bbedd2002ba4041 Mon Sep 17 00:00:00 2001
From: Carl Eastlund <cce@racket-lang.org>
Date: Sat, 23 Jan 2010 18:31:10 +0000
Subject: [PATCH] Replaced #%variable-reference with quote-module-path for unit
 contract blame.

svn: r17781
---
 collects/mzlib/unit.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/unit.ss b/collects/mzlib/unit.ss
index dec63d26fa..d13d748174 100644
--- 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