svn: r8935
This commit is contained in:
Eli Barzilay 2008-03-09 18:15:46 +00:00
parent 84c0893e2b
commit 47ae6fac94

View File

@ -71,8 +71,8 @@
(map (lambda (s) (format " ~a" s))
(available-mzscheme-variants))))
(setup-printf "Main collection path is ~a" (find-collects-dir))
(setup-printf "Collection search path is ~a"
(if (null? (current-library-collection-paths)) "empty!" ""))
(setup-printf "Collection search path is~a"
(if (null? (current-library-collection-paths)) " empty!" ""))
(for ([p (current-library-collection-paths)])
(setup-printf " ~a" (path->string p)))