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

2009-09-16 17:36:50 -05:00 · 2009-09-16 17:36:50 -05:00 · 58756c27c5
parent 40620d470f
commit 58756c27c5
1 changed files with 2 additions and 2 deletions
--- a/basis/alien/c-types/c-types.factor
+++ b/basis/alien/c-types/c-types.factor
@ -318,8 +318,8 @@ M: word typedef ( old new -- )
        [ name>> typedef ]
        [ swap "c-type" set-word-prop ]
        [
-            swap dup word? [
-                "pointer-c-type" word-prop
+            swap dup c-type-name? [
+                resolve-pointer-type
                "pointer-c-type" set-word-prop
            ] [ 2drop ] if
        ]