Fix short-circuit usage in number>text

db4
Aaron Schaefer 2008-11-09 17:23:24 -05:00
parent f20ab6f4e8
commit e5c155338f
1 changed files with 1 additions and 1 deletions

View File

@ -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 " "" ? ;