Fix short-circuit usage in number>text
parent
f20ab6f4e8
commit
e5c155338f
|
@ -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 " "" ? ;
|
||||
|
|
Loading…
Reference in New Issue