Simplify RatToStr code, making it closer to TimToady's original.

sorear · Mar 3, 2013 · 713c785 · 713c785
1 parent 08a736f
commit 713c785
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/lib/CORE.setting b/lib/CORE.setting
@@ -866,12 +866,12 @@ sub Niecza::RatToStr ($rat, :$all) {
     $s ~= $i;
     if $r {
         $s ~= '.';
-        my $want = $rat.denominator < 100_000
-                   ?? 6
-                   !! $rat.denominator.Str.chars + 1;
+        my $want = $all ?? Inf
+                        !! $rat.denominator < 100_000
+                           ?? 6
+                           !! $rat.denominator.Str.chars + 1;
         my $f = '';
-        my $not-done = $all ?? { True } !! { $f.chars < $want };
-        while $r and $not-done() {
+        while $r and $f.chars < $want {
             $r *= 10;
             $i = $r.floor;
             $f ~= $i;