if-empty changes

[factor.git] / extra / math / text / english / english.factor

diff --git a/extra/math/text/english/english.factor b/extra/math/text/english/english.factor
index b8256533bf438f946f6bfb128bb4eb7e263a7e74..387be4d7912f240cada6484e965b884efc76fd87 100755 (executable)
--- a/extra/math/text/english/english.factor
+++ b/extra/math/text/english/english.factor
@@ -57,11 +57,9 @@ SYMBOL: and-needed?
 
 : text-with-scale ( index seq -- str )
     dupd nth 3digits>text swap
-    scale-numbers dup empty? [
-        drop
-    ] [
+    scale-numbers [
         " " swap 3append
-    ] if ;
+    ] unless-empty ;
 
 : append-with-conjunction ( str1 str2 -- newstr )
     over length zero? [