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

Converted provide.ss to use new contract form and deference variable-reference.

Browse Source 
svn: r17716
This commit is contained in:
Carl Eastlund 2010-01-18 17:05:06 +00:00
parent 124050d54e
commit 1014dd2da4
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/scheme/contract/private/provide.ss
View File

@ -52,8 +52,9 @@
#`(contract contract-id #`(contract contract-id
id id
pos-module-source pos-module-source
(#%variable-reference) (current-module-path)
#,(id->contract-src-info #'id))))))]) 'id
(quote-syntax id))))))])
(when key (when key
(hash-set! saved-id-table key lifted-id)) (hash-set! saved-id-table key lifted-id))
;; Expand to a use of the lifted expression: ;; Expand to a use of the lifted expression:
@ -652,7 +653,7 @@
(with-syntax ([code (with-syntax ([code
(quasisyntax/loc stx (quasisyntax/loc stx
(begin (begin
(define pos-module-source (#%variable-reference)) (define pos-module-source (current-module-path))
#,@(if no-need-to-check-ctrct? #,@(if no-need-to-check-ctrct?
(list) (list)
@ -669,7 +670,7 @@
(syntax-local-lift-module-end-declaration (syntax-local-lift-module-end-declaration
#`(begin #`(begin
(unless extra-test (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))) (void)))
(syntax (code id-rename))))))])) (syntax (code id-rename))))))]))
@ -702,7 +703,9 @@
(contract ctc (contract ctc
val val
'not-enough-info-for-blame 'not-enough-info-for-blame
'not-enough-info-for-blame)) 'not-enough-info-for-blame
'#f
'#f))
ctcs ctcs
vals)))))]) vals)))))])
struct:struct-name)) struct:struct-name))