fix bug in pointer type parsing

2009-09-15 22:10:16 -05:00 · 2009-09-15 22:10:16 -05:00 · 26026ff6de
parent 3b4330fcf6
commit 26026ff6de
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