factor: words -> split-words, lines -> split-lines, fix errors

[factor.git] / basis / math / primes / factors / factors.factor

diff --git a/basis/math/primes/factors/factors.factor b/basis/math/primes/factors/factors.factor
index 911a297ca9470e230c4ad5dc4a67ab69e98ec91a..98cbd9ac9b3bca5b377d40a1cc92ab4a1193548b 100644 (file)
--- a/basis/math/primes/factors/factors.factor
+++ b/basis/math/primes/factors/factors.factor
@@ -56,7 +56,7 @@ PRIVATE>
 : unix-factor ( string -- )
     dup string>number [
         [ ": " append write ]
-        [ factors [ number>string ] map unwords print ] bi*
+        [ factors [ number>string ] map join-words print ] bi*
     ] [
         "factor: `" "' is not a valid positive integer" surround print
     ] if* flush ;