steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

have typedefs take on the old type's pointer type even when the new type is a word and the old a string

db4
Joe Groff 2009-09-16 17:36:50 -05:00
parent 40620d470f
commit 58756c27c5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/alien/c-types/c-types.factor
View File

@ -318,8 +318,8 @@ M: word typedef ( old new -- )
[ name>> typedef ] [ name>> typedef ]
[ swap "c-type" set-word-prop ] [ swap "c-type" set-word-prop ]
[ [
swap dup word? [ swap dup c-type-name? [
"pointer-c-type" word-prop resolve-pointer-type
"pointer-c-type" set-word-prop "pointer-c-type" set-word-prop
] [ 2drop ] if ] [ 2drop ] if
] ]