fix bug in pointer type parsing

2009-09-15 22:10:16 -05:00 · 2009-09-15 22:10:16 -05:00 · 24bb3a8823
parent 334e93bbbf
commit 24bb3a8823
1 changed files with 2 additions and 4 deletions
--- a/basis/alien/c-types/c-types.factor
+++ b/basis/alien/c-types/c-types.factor
@ -79,11 +79,9 @@ M: string c-type ( name -- type )
    CHAR: ] over member? [
        parse-array-type prefix
    ] [
-        dup c-types get at [
-            resolve-typedef
-        ] [
+        dup c-types get at [ ] [
            "*" ?tail [ resolve-pointer-type ] [ no-c-type ] if
-        ] ?if
+        ] ?if resolve-typedef
    ] if ;

 M: word c-type