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

fixed bug in expansion of (this-package-in main)

Browse Source
This commit is contained in:
Ryan Culpepper 2011-04-07 09:44:44 -06:00
parent 3e5a54c9e4
commit eb60d3d479
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/planet/version.rkt
View File

@ -18,9 +18,15 @@
(define-syntax this-package-in (define-syntax this-package-in
(make-require-transformer (make-require-transformer
(syntax-parser (lambda (stx)
[(~and src (_ (~or (~datum main) suffix:id) ...)) (define-syntax-class suffix
(expand-import #:description "module suffix identifier"
(pattern (~datum main) #:attr suf #f)
(pattern suf:id))
(syntax-parse stx
[(_ s:suffix ...)
(expand-import
#`(combine-in #`(combine-in
#,@(for/list ([suf (in-list (attribute suffix))]) #,@(for/list ([src (in-list (attribute s))]
(make-planet-require-spec #'src suf))))]))) [suf (in-list (attribute s.suf))])
(make-planet-require-spec src suf))))]))))