oops... word c-types can be structs too

db4
Joe Groff 2009-09-16 13:11:53 -05:00
parent b403ba5c17
commit fc5500a0dc
1 changed files with 2 additions and 2 deletions
basis/alien/c-types

View File

@ -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 )