Fix short-circuit usage in number>text

2008-11-09 17:23:24 -05:00 · 2008-11-09 17:23:24 -05:00 · e5c155338f
parent f20ab6f4e8
commit e5c155338f
1 changed files with 1 additions and 1 deletions
--- a/extra/math/text/english/english.factor
+++ b/extra/math/text/english/english.factor
@ -26,7 +26,7 @@ IN: math.text.english

 SYMBOL: and-needed?
 : set-conjunction ( seq -- )
-    first { [ dup 100 < ] [ dup 0 > ] } 0&& and-needed? set drop ;
+    first { [ 100 < ] [ 0 > ] } 1&& and-needed? set ;

 : negative-text ( n -- str )
    0 < "Negative " "" ? ;