alien.inline: cify-type: fixed incorrect substitution

db4
Jeremy Hughes 2009-07-05 21:41:21 +12:00
parent d2f6f99954
commit 1a0a34fbfc
1 changed files with 1 additions and 1 deletions

View File

@ -32,7 +32,7 @@ SYMBOL: c-strings
"long-" ?head [ "long" prepend ] when ;
: cify-type ( str -- str' )
{ { CHAR: ~ CHAR: space } } substitute ;
{ { CHAR: - CHAR: space } } substitute ;
: factor-function ( function types effect -- )
[ c-library get ] 3dip [ [ factorize-type ] map ] dip