svn: r3423
This commit is contained in:
Eli Barzilay 2006-06-20 20:52:38 +00:00
parent 6cd4b0009b
commit ff4470fa2e

View File

@ -69,7 +69,7 @@
;; Use this getenv if your implementation supports it. ;; Use this getenv if your implementation supports it.
(getenv "SCHEME_LIBRARY_PATH") (getenv "SCHEME_LIBRARY_PATH")
;; Try an slib collection first ;; Try an slib collection first
(with-handlers ([void #f]) (with-handlers ([void (lambda (e) #f)])
(path->string (collection-path "slib"))) (path->string (collection-path "slib")))
;; look for slib in a few common places ;; look for slib in a few common places
(ormap (lambda (dir) (ormap (lambda (dir)