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

.

Browse Source 
original commit: f0222cdf7347c8c23b4c849837689da5a4e60b8e
This commit is contained in:
Eli Barzilay 2004-06-09 18:02:45 +00:00
parent 6b94eda910
commit e90565eca5
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mzlib/foreign.ss
View File

@ -35,7 +35,8 @@
(provide (rename get-ffi-lib ffi-lib))
(define (get-ffi-lib name . version)
(let ([version (if (pair? version) (string-append "." (car version)) "")])
(let ([version (if (pair? version) (string-append "." (car version)) "")]
[fullpath (lambda (x) (path->complete-path (expand-path p)))])
(let loop ([name name])
(cond
[(ffi-lib? name) name]
@ -48,9 +49,9 @@
(or (ffi-lib name #t) ; try good name first
(ffi-lib name0 #t) ; try original
(and (file-exists? name) ; try a relative path
(ffi-lib (path->complete-path name) #t))
(ffi-lib (fullpath name) #t))
(and (file-exists? name0) ; relative with original
(ffi-lib (path->complete-path name0) #t))
(ffi-lib (fullpath name0) #t))
;; give up: call ffi-lib so it will raise an error
(ffi-lib name)))]))))