.

original commit: cfd83354c8af0205f577f19e64468b7e5a3b8daa
2005-01-07 01:40:56 +00:00 · 2005-01-07 01:40:56 +00:00 · fed50be112
commit fed50be112
parent 44737e7a28
1 changed files with 0 additions and 3 deletions
--- 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)]