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

move sandbox-coverage to scheme/private

Browse Source 
svn: r10690
This commit is contained in:
Eli Barzilay 2008-07-09 07:20:51 +00:00
parent 7d50e61c7f
commit 91fb6ffce0
2 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
collects/mzlib/private/sandbox-coverage.ss → collects/scheme/private/sandbox-coverage.ss
View File

2
collects/scheme/sandbox.ss
View File

@ -373,7 +373,7 @@
(define (evaluate-program program limits uncovered!) (define (evaluate-program program limits uncovered!)
(when uncovered! (when uncovered!
(eval `(,#'#%require mzlib/private/sandbox-coverage))) (eval `(,#'#%require scheme/private/sandbox-coverage)))
;; the actual evaluation happens under specified limits, if given ;; the actual evaluation happens under specified limits, if given
(let ([run (if (and (pair? program) (eq? 'begin (car program))) (let ([run (if (and (pair? program) (eq? 'begin (car program)))
(lambda () (eval* (cdr program))) (lambda () (eval* (cdr program)))