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

[factor.git] / extra / math / text / french / french.factor

diff --git a/extra/math/text/french/french.factor b/extra/math/text/french/french.factor
index daf90033b567cbcc4d8ba587688d969540bca618..2206c5e13bd16c20db922b4ad521a7b4bff4bd56 100644 (file)
--- a/extra/math/text/french/french.factor
+++ b/extra/math/text/french/french.factor
@@ -70,7 +70,7 @@ MEMO: units ( -- seq ) ! up to 10^99
 
 : over-1000000 ( n -- str )
     3 digit-groups [ 1 + units nth n-units ] map-index sift
-    reverse unwords ;
+    reverse join-words ;
 
 : decompose ( n -- str ) 1000000 /mod [ over-1000000 ] dip
     dup 0 > [ basic space-append ] [ drop ] if ;