steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/alien/c-types/c-types.factor
View File

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