From dd45949c508cacf527a22934d7dfdcfe21f3d507 Mon Sep 17 00:00:00 2001
From: Jeremy Hughes <jedahu@gmail.com>
Date: Sun, 5 Jul 2009 21:42:35 +1200
Subject: [PATCH] alien.inline: prototype-string: fixed params
---
basis/alien/inline/inline.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/alien/inline/inline.factor b/basis/alien/inline/inline.factor
index 2500021247..b71341ab6d 100644
--- 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 ;