units.reduction: avoid double length calls in find-unit-suffix.

diff --git a/extra/units/reduction/reduction.factor b/extra/units/reduction/reduction.factor
index db7d774b4f085c7abb95ff9f22132b596bc7a512..3a75d359fc22188a69220884d090df122c63abd3 100644 (file)
--- a/extra/units/reduction/reduction.factor
+++ b/extra/units/reduction/reduction.factor
@@ -16,9 +16,9 @@ CONSTANT: unit-suffix-hash H{
     [ * ] dip swap ^ ; inline
 
 :: find-unit-suffix ( suffixes n multiplier base -- i/f )
-    suffixes length
-    [ [ n ] dip multiplier base threshhold < ] find-integer
-   suffixes length or 1 [-] ;
+    suffixes length [
+        [ [ n ] dip multiplier base threshhold < ] find-integer
+    ] keep or 1 [-] ;
 
 :: reduce-magnitude ( n multiplier base suffixes -- string )
     n 0 < [