suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added ffi-obj-ref after all

Browse Source 
original commit: d358e1bf1f031bc58869d3924bd5654338d2a4f8
This commit is contained in:
Eli Barzilay 2005-04-22 16:43:41 +00:00
parent be8a96bc28
commit 6752e1667a
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/mzlib/foreign.ss
View File

@ -185,16 +185,16 @@
(ptr-set! ffi-obj type new)))
;; 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)))]))
(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