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

[factor.git] / extra / compiler / cfg / gvn / testing / testing.factor

diff --git a/extra/compiler/cfg/gvn/testing/testing.factor b/extra/compiler/cfg/gvn/testing/testing.factor
index 3d0f68fc7a083e1af1df62117617670204205fa1..5ce852bd31cad754fad70060d9c4f0cdee0f7717 100644 (file)
--- a/extra/compiler/cfg/gvn/testing/testing.factor
+++ b/extra/compiler/cfg/gvn/testing/testing.factor
@@ -14,7 +14,7 @@ M: integer-expr expr>str value>> number>string ;
 
 M: reference-expr expr>str value>> unparse ;
 
-M: sequence expr>str [ unparse ] map " " join ;
+M: sequence expr>str [ unparse ] map unwords ;
 
 M: object expr>str unparse ;