alien.inline: factorize-type covers unsigned and long

db4
Jeremy Hughes 2009-07-04 11:28:31 +12:00
parent 713e71fd3c
commit 8f8aa3051c
1 changed files with 3 additions and 1 deletions

View File

@ -25,7 +25,9 @@ SYMBOL: c-strings
[ 1string ] map ;
: factorize-type ( str -- str' )
"const-" ?head drop ;
"const-" ?head drop
"unsigned-" ?head [ "u" prepend ] when
"long-" ?head [ "long" prepend ] when ;
: cify-type ( str -- str' )
{ { CHAR: ~ CHAR: space } } substitute ;