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

fixed bug with evaluation of uncovered exprs

Browse Source 
svn: r5362
This commit is contained in:
Eli Barzilay 2007-01-16 06:18:04 +00:00
parent d570c1c0bd
commit 237506faed
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/handin-server/sandbox.ss
View File

@ -129,7 +129,8 @@
`(begin ,language ,@body)]
[else (error 'make-evaluator
"Bad language specification: ~e"
language)])])
language)])]
[ns (current-namespace)])
(when uncovered!
(safe-eval '(require (lib "coverage.ss" "handin-server" "private"))))
(safe-eval body)
@ -140,7 +141,8 @@
(current-namespace (module->namespace mod))))
(when uncovered!
(uncovered! (filter (lambda (x) (eq? 'program (syntax-source x)))
(safe-eval '(get-uncovered-expressions)))))))
(parameterize ([current-namespace ns])
(safe-eval '(get-uncovered-expressions))))))))
(define current-eventspace (mz/mr (make-parameter #f) current-eventspace))
(define make-eventspace (mz/mr void make-eventspace))