From 932ecece86e935d1609c5da3c8a8e0b0d12d3cf9 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 original commit: 3b88282cfe7b20c437332e5dec62722169a7a05c --- collects/mzlib/sandbox.ss | 6 ------ 1 file changed, 6 deletions(-) diff --git a/collects/mzlib/sandbox.ss b/collects/mzlib/sandbox.ss index ea16234..2c63cfd 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)