Supply original stx to make-import
Although commit 5b0f0cee23
was sufficient to make `rename-in` expand
to `rename` with srcloc for the original name, it turns out it did not
address a similar issue with `only-in` renaming.
Do so by supplying the original (not renamed) identifier syntax as the
`orig-stx` for `make-import`.
This commit is contained in:
parent
91d136120c
commit
b72c11f08b
|
@ -517,7 +517,7 @@
|
|||
(import-mode import)
|
||||
(import-req-mode import)
|
||||
(import-orig-mode import)
|
||||
new-id))))
|
||||
orig-id))))
|
||||
imports))])
|
||||
(if (null? l)
|
||||
(raise-syntax-error
|
||||
|
@ -654,7 +654,7 @@
|
|||
(import-mode import)
|
||||
(import-req-mode import)
|
||||
(import-orig-mode import)
|
||||
bind-id)
|
||||
orig-id)
|
||||
import))
|
||||
rename-imports)))
|
||||
orig-ids bind-ids))])
|
||||
|
|
Loading…
Reference in New Issue
Block a user