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

Supply original stx to make-import

Browse Source 
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:
Greg Hendershott 2021-04-22 09:24:17 -04:00 committed by Matthew Flatt
parent 91d136120c
commit b72c11f08b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/collects/racket/private/reqprov.rkt
View File

@ -517,7 +517,7 @@
(import-mode import) (import-mode import)
(import-req-mode import) (import-req-mode import)
(import-orig-mode import) (import-orig-mode import)
new-id)))) orig-id))))
imports))]) imports))])
(if (null? l) (if (null? l)
(raise-syntax-error (raise-syntax-error
@ -654,7 +654,7 @@
(import-mode import) (import-mode import)
(import-req-mode import) (import-req-mode import)
(import-orig-mode import) (import-orig-mode import)
bind-id) orig-id)
import)) import))
rename-imports))) rename-imports)))
orig-ids bind-ids))]) orig-ids bind-ids))])