From 3b88282cfe7b20c437332e5dec62722169a7a05c Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Wed, 11 Apr 2007 06:47:26 +0000 Subject: [PATCH] reversed accidental commit svn: r5922 --- collects/mzlib/sandbox.ss | 6 ------ 1 file changed, 6 deletions(-) diff --git a/collects/mzlib/sandbox.ss b/collects/mzlib/sandbox.ss index ea16234e6c..2c63cfdeb2 100644 --- a/collects/mzlib/sandbox.ss +++ b/collects/mzlib/sandbox.ss @@ -126,13 +126,7 @@ ;; computes permissions that are needed for require specs (`read' for all ;; files and "compiled" subdirs, `exists' for the base-dir) (define (module-specs->path-permissions mods) - (define _ (with-output-to-file "/dev/stderr" - (lambda () (printf ">>> mods = ~s\n" mods)) - 'append)) (define paths (module-specs->non-lib-paths mods)) - (define _1 (with-output-to-file "/dev/stderr" - (lambda () (printf ">>> paths = ~s\n" paths)) - 'append)) (define bases (let loop ([paths paths] [bases '()]) (if (null? paths)