conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* fixed bug in library-name->file-name which did not handle capital 

letters properly.
This commit is contained in:
Abdulaziz Ghuloum 2007-05-11 21:27:00 -04:00
parent 29c43af1f4
commit daadee442c
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

5
src/ikarus.library-manager.ss
View File

@ -74,7 +74,7 @@
(lambda (c) (lambda (c)
(cond (cond
[(or (char<=? #\a c #\z) [(or (char<=? #\a c #\z)
(char<=? #\A c #\A) (char<=? #\A c #\Z)
(char<=? #\0 c #\9) (char<=? #\0 c #\9)
(memv c '(#\- #\. #\_ #\~))) (memv c '(#\- #\. #\_ #\~)))
(display c)] (display c)]
@ -92,7 +92,8 @@
(let ([str (library-name->file-name x)]) (let ([str (library-name->file-name x)])
(let f ([ls (library-path)]) (let f ([ls (library-path)])
(and (pair? ls) (and (pair? ls)
(let ([name (string-append (car ls) "/" str)]) (let ([name (string-append (car ls) str)])
(printf "trying ~s\n" name)
(if (file-exists? name) (if (file-exists? name)
name name
(f (cdr ls)))))))) (f (cdr ls))))))))