www

commit 1c0429e109869113ebdedc2f6890443c470c05a2
parent e930471f52c206fe2bbcbc01638ccc0da7a55582
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Thu, 18 Aug 2016 01:54:29 +0200

Temporarily disable the meta.rkt test, as it doesn't work with the (parameterize ([current-namespace …]) (expand …)) fix for cover

Diffstat:
M
lang/reader.rkt
 | 
6
+++++-
R
test/meta.rkt -> test/meta.rkt.disabled
 | 
0

2 files changed, 5 insertions(+), 1 deletion(-)
diff --git 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