alien.strings: handle symbol arrays in symbol>string

diff --git a/core/alien/strings/strings.factor b/core/alien/strings/strings.factor
index fce6c40562a3d7e86665dfaec87b5c493e40f155..47b071c1847ba01724b2959f2e4bf16e57f3b989 100644 (file)
--- a/core/alien/strings/strings.factor
+++ b/core/alien/strings/strings.factor
@@ -57,9 +57,13 @@ M: string string>symbol utf8 string>alien ;
 
 M: sequence string>symbol [ utf8 string>alien ] map ;
 
-: symbol>string ( alien -- str )
+: (symbol>string) ( alien -- str )
     utf8 alien>string ;
 
+GENERIC: symbol>string ( symbol(s) -- string(s) )
+M: byte-array symbol>string (symbol>string) ;
+M: array symbol>string [ (symbol>string) ] map ;
+
 [
      8 special-object utf8 alien>string string>cpu \ cpu set-global
      9 special-object utf8 alien>string string>os \ os set-global