Joe Groff 2009-10-16 16:39:33 -05:00
parent dd6308ead5
commit c8eddf89e6
1 changed files with 1 additions and 1 deletions

View File

@ -21,7 +21,7 @@ IN: alien.parser
} cond ; } cond ;
: valid-c-type? ( c-type -- ? ) : valid-c-type? ( c-type -- ? )
{ [ array? ] [ c-type-name? ] } 1|| ; { [ array? ] [ c-type-name? ] [ void? ] } 1|| ;
: parse-c-type ( string -- type ) : parse-c-type ( string -- type )
(parse-c-type) dup valid-c-type? [ no-c-type ] unless ; (parse-c-type) dup valid-c-type? [ no-c-type ] unless ;