From 1014dd2da4644f1c2cfc40bd9a76808d79dfd10d Mon Sep 17 00:00:00 2001 From: Carl Eastlund Date: Mon, 18 Jan 2010 17:05:06 +0000 Subject: [PATCH] Converted provide.ss to use new contract form and deference variable-reference. svn: r17716 --- collects/scheme/contract/private/provide.ss | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/collects/scheme/contract/private/provide.ss b/collects/scheme/contract/private/provide.ss index 0b154c1d89..dbd2eed91a 100644 --- a/collects/scheme/contract/private/provide.ss +++ b/collects/scheme/contract/private/provide.ss @@ -52,8 +52,9 @@ #`(contract contract-id id pos-module-source - (#%variable-reference) - #,(id->contract-src-info #'id))))))]) + (current-module-path) + 'id + (quote-syntax id))))))]) (when key (hash-set! saved-id-table key lifted-id)) ;; Expand to a use of the lifted expression: @@ -652,7 +653,7 @@ (with-syntax ([code (quasisyntax/loc stx (begin - (define pos-module-source (#%variable-reference)) + (define pos-module-source (current-module-path)) #,@(if no-need-to-check-ctrct? (list) @@ -669,7 +670,7 @@ (syntax-local-lift-module-end-declaration #`(begin (unless extra-test - (contract contract-id id pos-module-source 'ignored #,(id->contract-src-info #'id))) + (contract contract-id id pos-module-source 'ignored 'id (quote-syntax id))) (void))) (syntax (code id-rename))))))])) @@ -702,7 +703,9 @@ (contract ctc val 'not-enough-info-for-blame - 'not-enough-info-for-blame)) + 'not-enough-info-for-blame + '#f + '#f)) ctcs vals)))))]) struct:struct-name))