core: Add words/unwords/unwords-as and use them.

[factor.git] / extra / smalltalk / printer / printer.factor

diff --git a/extra/smalltalk/printer/printer.factor b/extra/smalltalk/printer/printer.factor
index cbf4baf74dfb4eb87cada49327ec999b51b95f04..eac54a0f387e23e362829b2290a17cf877fdb7e7 100644 (file)
--- a/extra/smalltalk/printer/printer.factor
+++ b/extra/smalltalk/printer/printer.factor
@@ -20,13 +20,13 @@ GENERIC: array-element>string ( object -- string )
 M: object array-element>string smalltalk>string ;
 
 M: array array-element>string
-    [ array-element>string ] map " " join "(" ")" surround ;
+    [ array-element>string ] map unwords "(" ")" surround ;
 
 M: array smalltalk>string
     array-element>string "#" prepend ;
 
 M: byte-array smalltalk>string
-    [ number>string ] { } map-as " " join "#[" "]" surround ;
+    [ number>string ] { } map-as unwords "#[" "]" surround ;
 
 M: symbol smalltalk>string
     name>> smalltalk>string "#" prepend ;