suzanne.soy/racket
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
This commit is contained in:
Eli Barzilay 2009-02-01 03:31:41 +00:00
parent eac9eb42ae
commit cc6ff9d5d7
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 _TYPE*
;; 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)])
(make-ctype (ctype-basetype t) (ctype-scheme->c t)
(make-ctype cst (ctype-scheme->c t)
;; hack: modify & reuse the procedure made by _cpointer
(lambda (p)
(if p (set-cpointer-tag! p all-tags) (c->s p))