suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
svn: r17781

original commit: d00e3432d960ea24ea6b25f34bbedd2002ba4041
This commit is contained in:
Carl Eastlund 2010-01-23 18:31:10 +00:00
parent 02ce7aabdb
commit ae2dbe30b1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mzlib/unit.ss
View File

@ -16,6 +16,7 @@
(require mzlib/etc (require mzlib/etc
scheme/contract/base scheme/contract/base
scheme/stxparam scheme/stxparam
unstable/location
"private/unit-contract.ss" "private/unit-contract.ss"
"private/unit-keywords.ss" "private/unit-keywords.ss"
"private/unit-runtime.ss" "private/unit-runtime.ss"
@ -1294,7 +1295,7 @@
(((wrap-code ...) ...) (((wrap-code ...) ...)
(map (λ (os ov tbs) (map (λ (os ov tbs)
(define rename-bindings (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) (map (λ (tb i v c)
(if c (if c
(with-syntax ([ctc-stx (with-syntax ([ctc-stx