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