From 69d11c08e032b1b4ded6030938275911c7af54bb Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 22 Jun 2012 08:36:37 -0700 Subject: [PATCH] math.text.french: removing duplicate if-zero definition. --- extra/math/text/french/french.factor | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/extra/math/text/french/french.factor b/extra/math/text/french/french.factor index 6d4987fddc..78af45c66b 100644 --- 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