From b72c11f08b5c1dfda2d042499ef6aa12c0ae01c4 Mon Sep 17 00:00:00 2001 From: Greg Hendershott Date: Thu, 22 Apr 2021 09:24:17 -0400 Subject: [PATCH] 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`. --- racket/collects/racket/private/reqprov.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/collects/racket/private/reqprov.rkt b/racket/collects/racket/private/reqprov.rkt index ca60398c2c..5ece556922 100644 --- a/racket/collects/racket/private/reqprov.rkt +++ b/racket/collects/racket/private/reqprov.rkt @@ -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))])