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

[factor.git] / extra / 99-bottles / 99-bottles.factor

diff --git a/extra/99-bottles/99-bottles.factor b/extra/99-bottles/99-bottles.factor
index 1a2c8d54024d29c3f458478cc98c052a69421b8a..a8243751aabeb2d2686d577f87a0c5105879d73d 100644 (file)
--- a/extra/99-bottles/99-bottles.factor
+++ b/extra/99-bottles/99-bottles.factor
@@ -15,7 +15,7 @@ IN: 99-bottles
             [ bottles "of beer.\nTake one down, pass it around," ]
             [ 1 - bottles [ >lower ] dip "of beer on the wall." ]
         } cleave
-    ] output>array " " join print nl ;
+    ] output>array unwords print nl ;
 
 : last-verse ( -- )
     "No more bottles of beer on the wall, no more bottles of beer." print