fix resolve-pointer-type

diff --git a/basis/alien/c-types/c-types.factor b/basis/alien/c-types/c-types.factor
index ecdc926b6287c45e51a20187bbc378192b35ec6f..6d63987265f3fcddc91fd4a22571b6c4e8e043b5 100755 (executable)
--- 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 ;