From 1bedd9a9f62c5f9c833ccdcb7028f6082ccc90aa Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 17 Oct 2011 07:24:43 -0500 Subject: [PATCH] make provide/contract generate only one definition to bind the positive module name, instead of one per clause the in the provide/contract declaration do not include in 5.2 --- collects/racket/contract/private/provide.rkt | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/collects/racket/contract/private/provide.rkt b/collects/racket/contract/private/provide.rkt index 5b1337e58b..d567307cb1 100644 --- a/collects/racket/contract/private/provide.rkt +++ b/collects/racket/contract/private/provide.rkt @@ -107,7 +107,7 @@ (syntax-case provide-stx () [(_ p/c-ele ...) (let () - + ;; ids : table[id -o> (listof id)] ;; code-for-each-clause adds identifiers to this map. ;; when it binds things; they are then used to signal @@ -678,9 +678,6 @@ (a:mangle-id provide-stx "provide/contract-contract-id" (or user-rename-id ex-id)))] - [pos-module-source (a:mangle-id provide-stx - "provide/contract-pos-module-source" - (or user-rename-id ex-id))] [pos-stx (datum->syntax id 'here)] [id id] [ex-id ex-id] @@ -698,7 +695,6 @@ (syntax-property (quasisyntax/loc stx (begin - (define pos-module-source (quote-module-name)) #,@(if no-need-to-check-ctrct? (list) @@ -775,6 +771,7 @@ (signal-dup-syntax-error) (syntax (begin + (define pos-module-source (quote-module-name)) bodies ...))))])) (define-syntax (provide/contract stx)