alien.strings: Actually return a string instead of an array of strings in

M\ array symbol>string. Fixes #1098.

diff --git a/core/alien/strings/strings.factor b/core/alien/strings/strings.factor
index 58eb743266c46f5ddb8f940d0ca277577d7dc06d..a1b77ea4fd407abe1c2aa6dbf7bc7141f6325ac1 100644 (file)
--- a/core/alien/strings/strings.factor
+++ b/core/alien/strings/strings.factor
@@ -83,9 +83,9 @@ M: sequence string>symbol [ utf8 string>alien ] map ;
 : (symbol>string) ( alien -- str )
     utf8 alien>string ;
 
-GENERIC: symbol>string ( symbol(s) -- string(s) )
+GENERIC: symbol>string ( symbol(s) -- string )
 M: byte-array symbol>string (symbol>string) ;
-M: array symbol>string [ (symbol>string) ] map ;
+M: array symbol>string [ (symbol>string) ] map ", " join ;
 
 [
     OBJ-CPU special-object utf8 alien>string string>cpu \ cpu set-global