From ae529383a04c288f1a3f07286db54b3854c9f0bf Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 10 Oct 2004 08:10:04 +0000 Subject: [PATCH] . original commit: c84fc87dd02fa1cd9a2ef0c1661e96f2c1a292ce --- collects/mzlib/foreign.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.ss index d35a3cd..3250a5e 100644 --- a/collects/mzlib/foreign.ss +++ b/collects/mzlib/foreign.ss @@ -123,10 +123,10 @@ (ffi-get (ffi-obj (get-ffi-obj-name 'get-ffi-obj name) (get-ffi-lib lib)) type)) (define-syntax (get-ffi-obj stx) - (syntax-case stx (get-ffi-obj) - [(get-ffi-obj name lib type) + (syntax-case stx () + [(_ name lib type) #`(get-ffi-obj* name lib #,(syntax-property #`type 'ffi-name #'name))] - [get-ffi-obj #'get-ffi-obj*])) + [x (identifier? #'x) #'get-ffi-obj*])) ;; It is important to use the set-ffi-obj! wrapper because it takes care of ;; keeping a handle on the object -- otherwise, setting a callback hook will