From 5b0f0cee23b11745d053727bef63834426d9acb1 Mon Sep 17 00:00:00 2001 From: Greg Hendershott Date: Mon, 12 Apr 2021 11:02:28 -0400 Subject: [PATCH] Use import-orig-stx instead of import-src-sym when appropriate The equivalent, for imports, of commit 66a8436bc1 and PR #3758 for exports. --- racket/collects/racket/private/reqprov.rkt | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/racket/collects/racket/private/reqprov.rkt b/racket/collects/racket/private/reqprov.rkt index 74b6f249dc..ca60398c2c 100644 --- a/racket/collects/racket/private/reqprov.rkt +++ b/racket/collects/racket/private/reqprov.rkt @@ -360,7 +360,13 @@ (quasisyntax/loc in (rename #,(import-src-mod-path import) #,(import-local-id import) - #,(import-src-sym import)))))) + #,(if (eq? (syntax-e (import-orig-stx import)) + (import-src-sym import)) + (import-orig-stx import) + (datum->syntax + #f + (import-src-sym import) + (import-orig-stx import)))))))) imports) (map (lambda (src) (mode-wrap (phase+ base-mode (import-source-mode src))