Always use rename-out in generated provides.

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:
Sam Tobin-Hochstadt 2015-02-09 16:39:05 -05:00
parent bafc7d93e7
commit 13614ae5c2

View File

@ -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)