fix handling of define*-values between a syntax binding and a syntax-local-value
svn: r14541 original commit: 7d61c67bab33f059d7c270685b46ff57eae5511c
This commit is contained in:
parent
a2181635c9
commit
b14a088754
|
@ -325,7 +325,7 @@
|
|||
(let ([star? (free-identifier=? #'def #'-define*-values)]
|
||||
[ids (syntax->list #'(id ...))])
|
||||
(let* ([def-ctx (if star?
|
||||
(syntax-local-make-definition-context)
|
||||
(syntax-local-make-definition-context (car def-ctxes))
|
||||
(car def-ctxes))]
|
||||
[ids (if star?
|
||||
(map (add-package-context (list def-ctx)) ids)
|
||||
|
|
Loading…
Reference in New Issue
Block a user