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

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

2
basis/alien/inline/inline.factor
View File

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