alien.inline: prototype-string: fixed params

db4
Jeremy Hughes 2009-07-05 21:42:35 +12:00
parent 1a0a34fbfc
commit dd45949c50
1 changed files with 1 additions and 1 deletions
basis/alien/inline

View File

@ -42,7 +42,7 @@ SYMBOL: c-strings
: prototype-string ( function types effect -- str )
[ [ cify-type ] map ] dip
types-effect>params-return cify-type -rot
2 group [ " " join "," append ] map " " join
[ " " join ] map ", " join
"(" prepend ")" append 3array " " join
library-is-c++ get [ "extern \"C\" " prepend ] when ;