Always use rename-out
in generated provide
s.
Since rename-transformers can generate free-id=? names, we could end up providing two things with the same name. Fixes PR 14972.
This commit is contained in:
parent
bafc7d93e7
commit
13614ae5c2
|
@ -185,9 +185,7 @@
|
|||
(define-values (defs export-def id alias) (mk internal-id))
|
||||
(define provide-forms
|
||||
(for/list ([external-id (in-list external-ids)])
|
||||
(if (free-identifier=? id external-id)
|
||||
id
|
||||
#`(rename-out [#,id #,external-id]))))
|
||||
#`(rename-out [#,id #,external-id])))
|
||||
(values #`(begin #,defs)
|
||||
export-def
|
||||
#`(provide #,@provide-forms)
|
||||
|
|
Loading…
Reference in New Issue
Block a user