From 58756c27c53029af3b810247cc003f8cee53c745 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Wed, 16 Sep 2009 17:36:50 -0500 Subject: [PATCH] have typedefs take on the old type's pointer type even when the new type is a word and the old a string --- basis/alien/c-types/c-types.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/alien/c-types/c-types.factor b/basis/alien/c-types/c-types.factor index f147810cd2..ecdc926b62 100755 --- 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 ]