From 91fb6ffce07e4adb1388120bf1d04d14152b7efd Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Wed, 9 Jul 2008 07:20:51 +0000 Subject: [PATCH] move sandbox-coverage to scheme/private svn: r10690 --- collects/{mzlib => scheme}/private/sandbox-coverage.ss | 0 collects/scheme/sandbox.ss | 2 +- 2 files changed, 1 insertion(+), 1 deletion(-) rename collects/{mzlib => scheme}/private/sandbox-coverage.ss (100%) diff --git a/collects/mzlib/private/sandbox-coverage.ss b/collects/scheme/private/sandbox-coverage.ss similarity index 100% rename from collects/mzlib/private/sandbox-coverage.ss rename to collects/scheme/private/sandbox-coverage.ss diff --git a/collects/scheme/sandbox.ss b/collects/scheme/sandbox.ss index 77970426b9..c5a60462aa 100644 --- a/collects/scheme/sandbox.ss +++ b/collects/scheme/sandbox.ss @@ -373,7 +373,7 @@ (define (evaluate-program program limits uncovered!) (when uncovered! - (eval `(,#'#%require mzlib/private/sandbox-coverage))) + (eval `(,#'#%require scheme/private/sandbox-coverage))) ;; the actual evaluation happens under specified limits, if given (let ([run (if (and (pair? program) (eq? 'begin (car program))) (lambda () (eval* (cdr program)))