fixed typo

svn: r3071
This commit is contained in:
Matthew Flatt 2006-05-26 12:12:26 +00:00
parent 67b5c30218
commit 4a0d8018b1

View File

@ -168,7 +168,7 @@
[name (if (regexp-match lib-suffix-re name0) ; name + suffix
(string-append name0 version)
(string-append name0 "." lib-suffix version))])
(or (and absolute?
(or (and (not absolute?)
(ormap (lambda (dir)
;; try good name first, then original
(or (ffi-lib (build-path dir name) #t)