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
_byte _word _int _uint _fixint _ufixint _long _ulong _fixnum _ufixnum
_float _double _double*
_bool _pointer _scheme)
_bool _pointer _scheme _fpointer)
(define-syntax define*
(syntax-rules ()
@ -181,10 +181,10 @@
(define* (_cprocedure itypes otype . wrapper)
(let ([wrapper (and (pair? wrapper) (car wrapper))])
(if wrapper
(make-ctype _fmark
(make-ctype _fpointer
(lambda (x) (ffi-callback (wrapper 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-call x itypes otype))))))