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

Merge branch 'fix-cover'

Browse Source
This commit is contained in:
Georges Dupéron 2016-08-18 01:57:44 +02:00
commit 469fb3e0b8
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
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))
(parameterize ([current-namespace (variable-reference->namespace (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))]) (#%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 …)