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

fmark -> fpointer, provide it

Browse Source 
original commit: c0a43f3822453e325f7d0de55ae38b1e8ffe7bf4
This commit is contained in:
Eli Barzilay 2004-10-25 10:48:15 +00:00
parent 74a668befd
commit 489139e38d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mzlib/foreign.ss
View File

@ -64,7 +64,7 @@
(provide* _void _int8 _uint8 _int16 _uint16 _int32 _uint32 _int64 _uint64 (provide* _void _int8 _uint8 _int16 _uint16 _int32 _uint32 _int64 _uint64
_byte _word _int _uint _fixint _ufixint _long _ulong _fixnum _ufixnum _byte _word _int _uint _fixint _ufixint _long _ulong _fixnum _ufixnum
_float _double _double* _float _double _double*
_bool _pointer _scheme) _bool _pointer _scheme _fpointer)
(define-syntax define* (define-syntax define*
(syntax-rules () (syntax-rules ()
@ -181,10 +181,10 @@
(define* (_cprocedure itypes otype . wrapper) (define* (_cprocedure itypes otype . wrapper)
(let ([wrapper (and (pair? wrapper) (car wrapper))]) (let ([wrapper (and (pair? wrapper) (car wrapper))])
(if wrapper (if wrapper
(make-ctype _fmark (make-ctype _fpointer
(lambda (x) (ffi-callback (wrapper x) itypes otype)) (lambda (x) (ffi-callback (wrapper x) itypes otype))
(lambda (x) (wrapper (ffi-call x itypes otype)))) (lambda (x) (wrapper (ffi-call x itypes otype))))
(make-ctype _fmark (make-ctype _fpointer
(lambda (x) (ffi-callback x itypes otype)) (lambda (x) (ffi-callback x itypes otype))
(lambda (x) (ffi-call x itypes otype)))))) (lambda (x) (ffi-call x itypes otype))))))