From f6b82c375439798ffd8c5f533ee27f52a8f78539 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Thu, 12 Aug 2004 21:54:28 +0000
Subject: [PATCH] .

original commit: 6bd9e04589dfc1248abfca1b8e9c9f678aed9954
---
 collects/mzlib/foreign.ss | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.ss
index bef53be..5968efc 100644
--- a/collects/mzlib/foreign.ss
+++ b/collects/mzlib/foreign.ss
@@ -14,7 +14,6 @@
          _float _double
          _bool _pointer _scheme)
 
-(provide define*)
 (define-syntax define*
   (syntax-rules ()
     [(_ (name . args) body ...)
@@ -109,11 +108,11 @@
                      [var (p)])))))]))
 
 ;; Used to convert strings and symbols to a byte-string that names an object
-(define (get-ffi-obj-name name objname)
+(define (get-ffi-obj-name who objname)
   (cond [(bytes? objname) objname]
-        [(symbol? objname) (get-ffi-obj-name name (symbol->string objname))]
+        [(symbol? objname) (get-ffi-obj-name who (symbol->string objname))]
         [(string? objname) (string->bytes/utf-8 objname)]
-        [else (raise-type-error name "object-name" objname)]))
+        [else (raise-type-error who "object-name" objname)]))
 
 ;; This table keeps references to values that are set in foreign libraries, to
 ;; avoid them being GCed.  See set-ffi-obj! above.