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

[factor.git] / core / classes / union / union.factor

diff --git a/core/classes/union/union.factor b/core/classes/union/union.factor
index 9f9afe20a8b4e5733e878f98f1705976a90435c7..b292640417179eab1156cbecef16550bbf18e4b2 100644 (file)
--- a/core/classes/union/union.factor
+++ b/core/classes/union/union.factor
@@ -4,7 +4,7 @@ USING: accessors assocs classes classes.algebra
 classes.algebra.private classes.builtin classes.private
 classes.tuple classes.tuple.private combinators definitions
 kernel kernel.private math math.private quotations sequences
-slots.private sorting words ;
+slots.private sorting splitting words ;
 IN: classes.union
 
 PREDICATE: union-class < class
@@ -117,7 +117,7 @@ M: anonymous-union instance?
     members>> [ instance? ] with any? ;
 
 M: anonymous-union class-name
-    members>> [ class-name ] map " " join ;
+    members>> [ class-name ] map unwords ;
 
 M: union-class normalize-class
     class-members <anonymous-union> normalize-class ;