suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

avoid path->string on a string

Browse Source 
svn: r3928
This commit is contained in:
Matthew Flatt 2006-08-02 16:12:08 +00:00
parent 8848d0dedd
commit c769bf6f96
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/slibinit/init.ss
View File

@ -73,7 +73,8 @@
(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)
(and (directory-exists? dir) (path->string dir))) (and (directory-exists? dir)
(if (path? dir) (path->string dir) dir)))
'("/usr/share/slib" '("/usr/share/slib"
;; this is for RH/Fedora that uses umb-scheme for slib ;; this is for RH/Fedora that uses umb-scheme for slib
"/usr/share/umb-scheme/slib")) "/usr/share/umb-scheme/slib"))