From 99dd403ef6b625b21bfb6177d33a51af5ddcee66 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Thu, 21 Jul 2016 16:52:53 -0400 Subject: [PATCH] fix another renaming provide src loc --- racket/collects/racket/private/reqprov.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/racket/collects/racket/private/reqprov.rkt b/racket/collects/racket/private/reqprov.rkt index 1e62d95fa0..5c4dfeb5a0 100644 --- a/racket/collects/racket/private/reqprov.rkt +++ b/racket/collects/racket/private/reqprov.rkt @@ -333,9 +333,10 @@ #`(just-meta #,(import-orig-mode import) #,(mode-wrap (phase+ base-mode (import-req-mode import)) - #`(rename #,(import-src-mod-path import) + (quasisyntax/loc in + (rename #,(import-src-mod-path import) #,(import-local-id import) - #,(import-src-sym import))))) + #,(import-src-sym import)))))) imports) (map (lambda (src) (mode-wrap (phase+ base-mode (import-source-mode src))