From fed50be112485919b7b3db0fb33effb5b2f83c9a Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 7 Jan 2005 01:40:56 +0000 Subject: [PATCH] . original commit: cfd83354c8af0205f577f19e64468b7e5a3b8daa --- collects/mzlib/foreign.ss | 3 --- 1 file changed, 3 deletions(-) diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.ss index 036feb4..aca6631 100644 --- a/collects/mzlib/foreign.ss +++ b/collects/mzlib/foreign.ss @@ -176,9 +176,6 @@ ;; foreign name into the type syntax, which allows generated wrappers to have a ;; proper name. (provide* (unsafe get-ffi-obj)) -(define (get-ffi-obj* name lib type . failure) - (ffi-get (ffi-obj (get-ffi-obj-name 'get-ffi-obj name) (get-ffi-lib lib)) - type)) (define get-ffi-obj* (case-lambda [(name lib type) (get-ffi-obj* name lib type #f)]