missing conversion to internal version of get-ffi-lib

svn: r3539
This commit is contained in:
Matthew Flatt 2006-06-29 14:10:41 +00:00
parent 9aa084b1f4
commit 0dca64f8f4

View File

@ -217,7 +217,7 @@
[(name lib type) (get-ffi-obj* name lib type #f)] [(name lib type) (get-ffi-obj* name lib type #f)]
[(name lib type failure) [(name lib type failure)
(let ([name (get-ffi-obj-name 'get-ffi-obj name)] (let ([name (get-ffi-obj-name 'get-ffi-obj name)]
[lib (get-ffi-lib lib)]) [lib (get-ffi-lib-internal lib)])
(let-values ([(obj error?) (let-values ([(obj error?)
(with-handlers (with-handlers
([exn:fail:filesystem? ([exn:fail:filesystem?