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

fixed namespace require leaking and syntax introducing. (Issue #29)

Browse Source
This commit is contained in:
Spencer Florence 2015-01-14 17:13:31 -05:00
parent 7769bcba4b
commit 08f6748e3c
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
cover.rkt
View File

@ -64,7 +64,7 @@
(define (run-mod to-run)
(vprintf "running ~s\n" to-run)
(namespace-require to-run)
(eval `(dynamic-require ',to-run #f))
(vprintf "finished running ~s\n" to-run))
(define o (current-output-port))
@ -87,17 +87,20 @@
(define annotate-top (get-annotate-top))
(lambda (e immediate-eval?)
(define to-compile
(cond [(eq? reg (namespace-module-registry (current-namespace)))
(cond [(or (compiled-expression? (if (syntax? e) (syntax-e e) e))
(not (eq? reg (namespace-module-registry (current-namespace))))
(not (equal? phase (namespace-base-phase (current-namespace)))))
e]
[else
(vprintf "compiling ~s with coverage annotations\n"
(if (not (syntax? e))
e
(or (syntax-source-file-name e)
(syntax-source e)
(syntax->datum e))))
(annotate-top
(if (syntax? e) (expand e) (datum->syntax #f e))
phase)]
[else e]))
(annotate-top (namespace-syntax-introduce
(if (syntax? e) (expand-syntax e) (datum->syntax #f e)))
phase)]))
(compile to-compile immediate-eval?)))
(define-runtime-path cov "coverage.rkt")