X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fmath%2Ftext%2Ffrench%2Ffrench.factor;h=8d313b91970f4fcc3dfe4eba2fa4417e7bf8879f;hp=46e326b7e77184929e3d7cc1bab8146e9b9fb2a4;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e

diff --git a/extra/math/text/french/french.factor b/extra/math/text/french/french.factor
index 46e326b7e7..8d313b9197 100644
--- a/extra/math/text/french/french.factor
+++ b/extra/math/text/french/french.factor
@@ -73,7 +73,7 @@ MEMO: units ( -- seq ) ! up to 10^99
     } cond ;
 
 : over-1000000 ( n -- str )
-    3 digit-groups [ 1+ units nth n-units ] map-index sift
+    3 digit-groups [ 1 + units nth n-units ] map-index sift
     reverse " " join ;
 
 : decompose ( n -- str ) 1000000 /mod [ over-1000000 ] dip complete ;