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

make provide/contract generate only one definition to bind the positive

Browse Source 
module name, instead of one per clause the in the provide/contract
declaration

do not include in 5.2
This commit is contained in:
Robby Findler 2011-10-17 07:24:43 -05:00
parent 2a43c68dd7
commit 1bedd9a9f6
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/racket/contract/private/provide.rkt
View File

@ -107,7 +107,7 @@
(syntax-case provide-stx () (syntax-case provide-stx ()
[(_ p/c-ele ...) [(_ p/c-ele ...)
(let () (let ()
;; ids : table[id -o> (listof id)] ;; ids : table[id -o> (listof id)]
;; code-for-each-clause adds identifiers to this map. ;; code-for-each-clause adds identifiers to this map.
;; when it binds things; they are then used to signal ;; when it binds things; they are then used to signal
@ -678,9 +678,6 @@
(a:mangle-id provide-stx (a:mangle-id provide-stx
"provide/contract-contract-id" "provide/contract-contract-id"
(or user-rename-id ex-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)] [pos-stx (datum->syntax id 'here)]
[id id] [id id]
[ex-id ex-id] [ex-id ex-id]
@ -698,7 +695,6 @@
(syntax-property (syntax-property
(quasisyntax/loc stx (quasisyntax/loc stx
(begin (begin
(define pos-module-source (quote-module-name))
#,@(if no-need-to-check-ctrct? #,@(if no-need-to-check-ctrct?
(list) (list)
@ -775,6 +771,7 @@
(signal-dup-syntax-error) (signal-dup-syntax-error)
(syntax (syntax
(begin (begin
(define pos-module-source (quote-module-name))
bodies ...))))])) bodies ...))))]))
(define-syntax (provide/contract stx) (define-syntax (provide/contract stx)