From fc5500a0dcfad986222f41085f151f92802763c5 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 16 Sep 2009 13:11:53 -0500
Subject: [PATCH] oops... word c-types can be structs too

---
 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 7dc00333b8..f147810cd2 100755
--- a/basis/alien/c-types/c-types.factor
+++ b/basis/alien/c-types/c-types.factor
@@ -94,7 +94,7 @@ GENERIC: c-struct? ( type -- ? )
 
 M: object c-struct?
     drop f ;
-M: string c-struct?
+M: c-type-name c-struct?
     dup void? [ drop f ] [ c-type c-struct? ] if ;
 
 ! These words being foldable means that words need to be
@@ -123,7 +123,7 @@ M: c-type-name <c-array>
 
 GENERIC: (c-array) ( len c-type -- array )
 
-M: string (c-array)
+M: c-type-name (c-array)
     c-(array)-constructor execute( len -- array ) ; inline
 
 GENERIC: <c-direct-array> ( alien len c-type -- array )