From 1c0429e109869113ebdedc2f6890443c470c05a2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Thu, 18 Aug 2016 01:54:29 +0200 Subject: [PATCH] =?UTF-8?q?Temporarily=20disable=20the=20meta.rkt=20test,?= =?UTF-8?q?=20as=20it=20doesn't=20work=20with=20the=20(parameterize=20([cu?= =?UTF-8?q?rrent-namespace=20=E2=80=A6])=20(expand=20=E2=80=A6))=20fix=20f?= =?UTF-8?q?or=20cover?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lang/reader.rkt | 6 +++++- test/{meta.rkt => meta.rkt.disabled} | 0 2 files changed, 5 insertions(+), 1 deletion(-) rename test/{meta.rkt => meta.rkt.disabled} (100%) diff --git a/lang/reader.rkt b/lang/reader.rkt index ea24c9f..bb947cc 100644 --- a/lang/reader.rkt +++ b/lang/reader.rkt @@ -49,14 +49,18 @@ (reader chr (narrow-until-prompt in) src line col pos)) (define/with-syntax (mod nam lang (modbeg . body)) + #;(eval-syntax (replace-top-loc #'(expand #'orig-mod) + (syntax-source #'here) + #'orig-mod) + (variable-reference->namespace (#%variable-reference))) (parameterize ([current-namespace (variable-reference->namespace (#%variable-reference))]) (expand #'orig-mod))) + ;; quasisyntax/loc Necessary so that the generated code has the correct srcloc (replace-top-loc #`(mod nam lang (modbeg - ;(quote-syntax orig-mod) (module* test racket/base (require repltest/private/run-interactions) ;; TODO: set-port-next-location! for (open-input-string …) diff --git a/test/meta.rkt b/test/meta.rkt.disabled similarity index 100% rename from test/meta.rkt rename to test/meta.rkt.disabled