Move math.text to math.text.english for localization

extra/math/text/english/english-docs.factor

@@ -1,5 +1,5 @@
 USING: help.markup help.syntax math strings ;
-IN: math.text
+IN: math.text.english
 
 HELP: number>text
 { $values { "n" integer } { "str" string } }

extra/math/text/english/english-tests.factor

@@ -1,4 +1,4 @@
-USING: math.functions math.text tools.test ;
+USING: math.functions math.text.english tools.test ;
 IN: temporary
 
 [ "Zero" ] [ 0 number>text ] unit-test

extra/math/text/english/english.factor

@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: combinators.lib kernel math math.functions math.parser namespaces
     sequences splitting sequences.lib ;
-IN: math.text
+IN: math.text.english
 
 <PRIVATE
 
@@ -26,10 +26,7 @@ IN: math.text
 
 SYMBOL: and-needed?
 : set-conjunction ( seq -- )
-    first {
+    first { [ dup 100 < ] [ dup 0 > ] } && and-needed? set drop ;
-        [ dup 100 < ]
-        [ dup 0 > ]
-    } && and-needed? set drop ;
 
 : negative-text ( n -- str )
     0 < "Negative " "" ? ;
@@ -100,4 +97,3 @@ PRIVATE>
     ] [
         [ (number>text) ] with-scope
     ] if ;
-

extra/math/text/english/summary.txt

@@ -0,0 +1 @@
+Convert integers to English text

extra/math/text/summary.txt

@@ -1 +0,0 @@
-Convert integers to text

extra/project-euler/017/017.factor

@@ -1,6 +1,6 @@
 ! Copyright (c) 2007 Aaron Schaefer.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: combinators.lib kernel math.ranges math.text sequences strings ;
+USING: combinators.lib kernel math.ranges math.text.english sequences strings ;
 IN: project-euler.017
 
 ! http://projecteuler.net/index.php?section=problems&id=17