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

.

Browse Source 
original commit: 5024d2fd9892283bae33d664a2a7845f2e9b14c0
This commit is contained in:
Eli Barzilay 2004-06-17 13:17:28 +00:00
parent 777667574c
commit 4828f4378a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/foreign.ss
View File

@ -876,8 +876,8 @@
[(types) (list stype ...)]
[(offset ...) (apply values
(compute-offsets types))])
(define-cpointer-type _TYPE)
(define _TYPE* (_cpointer TYPE-tag (make-cstruct-type types)))
(define-cpointer-tag _TYPE)
(values _TYPE* _TYPE TYPE? TYPE-tag
(lambda (slot ...)
(let ([block (malloc _TYPE*)])