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

[factor.git] / core / splitting / splitting.factor

diff --git a/core/splitting/splitting.factor b/core/splitting/splitting.factor
index 50b2a92df4c5ec76d4071ff8c8a153ee05e99842..ac81862115a118ba7f7a0ee029942bd73602a05f 100644 (file)
--- a/core/splitting/splitting.factor
+++ b/core/splitting/splitting.factor
@@ -123,3 +123,6 @@ M: sbuf lines "" like lines ;
 
 : unlines-as ( seq exemplar -- seq ) "\n" swap join-as ; inline
 : unlines ( seq -- seq ) "" unlines-as ; inline
+: words ( seq -- seq ) " " split ; inline
+: unwords-as ( seq exemplar -- seq ) " " swap join-as ; inline
+: unwords ( seq -- seq ) " " unwords-as ; inline