factor: trim using lists

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

diff --git a/extra/math/text/english/english.factor b/extra/math/text/english/english.factor
index 41374474121336550e7ffe4eef59b51432775713..662e46ef75f86157b2bd1b4a21a6396ad2652d99 100644 (file)
--- a/extra/math/text/english/english.factor
+++ b/extra/math/text/english/english.factor
@@ -1,8 +1,8 @@
 ! Copyright (c) 2007, 2008, 2018 Aaron Schaefer.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: combinators combinators.short-circuit grouping kernel
-math math.functions math.parser math.order math.text.utils namespaces
-sequences splitting ;
+USING: combinators combinators.short-circuit kernel math
+math.order math.parser math.text.utils namespaces sequences
+splitting ;
 IN: math.text.english
 
 <PRIVATE
@@ -104,7 +104,7 @@ M: float number>text
         [ string>number number>text ]
         [ [ "negative " prepend ] when ] bi*
     ] [
-        [ CHAR: 0 - small-numbers ] { } map-as " " join
+        [ CHAR: 0 - small-numbers ] { } map-as join-words
     ] bi* " point " glue ;
 
 M: complex number>text