fix resolve-pointer-type

2009-09-16 20:54:57 -05:00 · 2009-09-16 20:54:57 -05:00 · 747c1c9fcc
parent c45653cb66
commit 747c1c9fcc
1 changed files with 6 additions and 2 deletions
--- a/basis/alien/c-types/c-types.factor
+++ b/basis/alien/c-types/c-types.factor
@ -65,8 +65,12 @@ M: word resolve-pointer-type
    dup "pointer-c-type" word-prop
    [ ] [ drop void* ] ?if ;
 M: string resolve-pointer-type
-    c-types get at dup c-type-name?
-    [ resolve-pointer-type ] [ drop void* ] if ;
+    dup "*" append dup c-types get at
+    [ nip ] [
+        drop
+        c-types get at dup c-type-name?
+        [ resolve-pointer-type ] [ drop void* ] if
+    ] if ;

 : resolve-typedef ( name -- type )
    dup c-type-name? [ c-type ] when ;