alien.inline: prototype-string: fixed params

2009-07-05 21:42:35 +12:00 · 2009-07-05 21:42:35 +12:00 · dd45949c50
parent 1a0a34fbfc
commit dd45949c50
1 changed files with 1 additions and 1 deletions
--- a/basis/alien/inline/inline.factor
+++ b/basis/alien/inline/inline.factor
@ -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 ;