From 046f3eef372f919d0c80bf2ad4f950d0b09a13d2 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Tue, 19 Jul 2016 15:53:05 -0400 Subject: [PATCH] fix src loc for renaming provide --- 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 0f369f7eeb..1e62d95fa0 100644 --- a/racket/collects/racket/private/reqprov.rkt +++ b/racket/collects/racket/private/reqprov.rkt @@ -736,8 +736,9 @@ (if (eq? (syntax-e (export-local-id export)) (export-out-sym export)) (export-local-id export) - #`(rename #,(export-local-id export) - #,(export-out-sym export)))] + (quasisyntax/loc out + (rename #,(export-local-id export) + #,(export-out-sym export))))] [mode (export-mode export)]) (let ([phased (cond