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

2012-06-22 08:36:37 -07:00 · 2012-06-22 08:36:37 -07:00 · 69d11c08e0
parent e1c91575c0
commit 69d11c08e0
1 changed files with 1 additions and 4 deletions
--- a/extra/math/text/french/french.factor
+++ b/extra/math/text/french/french.factor
@ -49,11 +49,8 @@ MEMO: units ( -- seq ) ! up to 10^99

 : 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 )
-    [ ] [ basic space-append ] if-zero ;
+    [ basic space-append ] unless-zero ;

 : smaller-than-1000 ( n -- str )
    100 /mod