From be8a96bc2803789a44926e3d48efcbaea63730f4 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 22 Apr 2005 15:50:42 +0000 Subject: [PATCH] removed ffi-obj-ref original commit: 862b32e2117076fbcdb0971c065bd328dbcf2790 --- collects/mzlib/foreign.ss | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.ss index 34d9d4d..9ead7d1 100644 --- a/collects/mzlib/foreign.ss +++ b/collects/mzlib/foreign.ss @@ -184,16 +184,17 @@ (hash-table-put! ffi-objects-ref-table ffi-obj new) (ptr-set! ffi-obj type new))) -(provide* ffi-obj-ref) -(define ffi-obj-ref - (case-lambda - [(name lib) (ffi-obj-ref name lib #f)] - [(name lib failure) - (let ([name (get-ffi-obj-name 'ffi-obj-ref name)] - [lib (get-ffi-lib lib)]) - (with-handlers ([exn:fail:filesystem? - (lambda (e) (if failure (failure) (raise e)))]) - (ffi-obj name lib)))])) +;; This is better handled with `make-c-parameter' +;; (provide* ffi-obj-ref) +;; (define ffi-obj-ref +;; (case-lambda +;; [(name lib) (ffi-obj-ref name lib #f)] +;; [(name lib failure) +;; (let ([name (get-ffi-obj-name 'ffi-obj-ref name)] +;; [lib (get-ffi-lib lib)]) +;; (with-handlers ([exn:fail:filesystem? +;; (lambda (e) (if failure (failure) (raise e)))]) +;; (ffi-obj name lib)))])) ;; get-ffi-obj is implemented as a syntax only to be able to propagate the ;; foreign name into the type syntax, which allows generated wrappers to have a