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

use the cstruct type directly, not via ctype-basetype

Browse Source 
svn: r13345

original commit: cc6ff9d5d75e09c781c1043dd7651034fcb544ff
This commit is contained in:
Eli Barzilay 2009-02-01 03:31:41 +00:00
parent 7a9fd5370c
commit 52854880c8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mzlib/foreign.ss
View File

@ -1394,9 +1394,10 @@
(define all-tags (cons TYPE-tag super-tags)) (define all-tags (cons TYPE-tag super-tags))
(define _TYPE* (define _TYPE*
;; c->scheme adjusts all tags ;; c->scheme adjusts all tags
(let* ([t (_cpointer TYPE-tag (make-cstruct-type types))] (let* ([cst (make-cstruct-type types)]
[t (_cpointer TYPE-tag cst)]
[c->s (ctype-c->scheme t)]) [c->s (ctype-c->scheme t)])
(make-ctype (ctype-basetype t) (ctype-scheme->c t) (make-ctype cst (ctype-scheme->c t)
;; hack: modify & reuse the procedure made by _cpointer ;; hack: modify & reuse the procedure made by _cpointer
(lambda (p) (lambda (p)
(if p (set-cpointer-tag! p all-tags) (c->s p)) (if p (set-cpointer-tag! p all-tags) (c->s p))