suzanne.soy/repltest
1
0
Fork 0
Code Issues 11 Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Georges Dupéron 2016-08-18 01:54:29 +02:00
parent e930471f52
commit 1c0429e109
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lang/reader.rkt
View File

@ -49,14 +49,18 @@
(reader chr (narrow-until-prompt in) src line col pos)) (reader chr (narrow-until-prompt in) src line col pos))
(define/with-syntax (mod nam lang (modbeg . body)) (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 (parameterize ([current-namespace (variable-reference->namespace
(#%variable-reference))]) (#%variable-reference))])
(expand #'orig-mod))) (expand #'orig-mod)))
;; quasisyntax/loc Necessary so that the generated code has the correct srcloc ;; quasisyntax/loc Necessary so that the generated code has the correct srcloc
(replace-top-loc (replace-top-loc
#`(mod nam lang #`(mod nam lang
(modbeg (modbeg
;(quote-syntax orig-mod)
(module* test racket/base (module* test racket/base
(require repltest/private/run-interactions) (require repltest/private/run-interactions)
;; TODO: set-port-next-location! for (open-input-string …) ;; TODO: set-port-next-location! for (open-input-string …)

0
test/meta.rkt → test/meta.rkt.disabled
View File