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

math.text.french: removing duplicate if-zero definition.

db4
John Benediktsson 2012-06-22 08:36:37 -07:00
parent e1c91575c0
commit 69d11c08e0
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/math/text/french/french.factor
View File

@ -49,11 +49,8 @@ MEMO: units ( -- seq ) ! up to 10^99
: smaller-than-100 ( n -- str ) 80 base-onto ; : smaller-than-100 ( n -- str ) 80 base-onto ;
: if-zero ( n quot quot -- )
[ dup zero? ] 2dip [ [ drop ] prepose ] dip if ; inline
: complete ( str n -- newstr ) : complete ( str n -- newstr )
[ ] [ basic space-append ] if-zero ; [ basic space-append ] unless-zero ;
: smaller-than-1000 ( n -- str ) : smaller-than-1000 ( n -- str )
100 /mod 100 /mod