steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/math/text/english/english.factor
View File

@ -26,7 +26,7 @@ IN: math.text.english
SYMBOL: and-needed? SYMBOL: and-needed?
: set-conjunction ( seq -- ) : set-conjunction ( seq -- )
first { [ dup 100 < ] [ dup 0 > ] } 0&& and-needed? set drop ; first { [ 100 < ] [ 0 > ] } 1&& and-needed? set ;
: negative-text ( n -- str ) : negative-text ( n -- str )
0 < "Negative " "" ? ; 0 < "Negative " "" ? ;