missing conversion to internal version of get-ffi-lib

svn: r3539

original commit: 0dca64f8f49863650b6ad0147c5c2d889171d213
This commit is contained in:
Matthew Flatt 2006-06-29 14:10:41 +00:00
parent 4a5b63f079
commit 621c98d7b4

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?