reversed accidental commit

svn: r5922

original commit: 3b88282cfe7b20c437332e5dec62722169a7a05c
This commit is contained in:
Eli Barzilay 2007-04-11 06:47:26 +00:00
parent 22126e8a01
commit 932ecece86

View File

@ -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)