From 0dca64f8f49863650b6ad0147c5c2d889171d213 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 29 Jun 2006 14:10:41 +0000
Subject: [PATCH] missing conversion to internal version of get-ffi-lib

svn: r3539
---
 collects/mzlib/foreign.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.ss
index 22430fe478..c8077790c7 100644
--- a/collects/mzlib/foreign.ss
+++ b/collects/mzlib/foreign.ss
@@ -217,7 +217,7 @@
    [(name lib type) (get-ffi-obj* name lib type #f)]
    [(name lib type failure)
     (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?)
                     (with-handlers
                         ([exn:fail:filesystem?