extra: use [-] instead of "- 0 max".

[factor.git] / extra / units / reduction / reduction.factor

diff --git a/extra/units/reduction/reduction.factor b/extra/units/reduction/reduction.factor
index 6f67f163faab6d4e9227faa76f552bc68ac32d8b..db7d774b4f085c7abb95ff9f22132b596bc7a512 100644 (file)
--- a/extra/units/reduction/reduction.factor
+++ b/extra/units/reduction/reduction.factor
@@ -18,7 +18,7 @@ CONSTANT: unit-suffix-hash H{
 :: find-unit-suffix ( suffixes n multiplier base -- i/f )
     suffixes length
     [ [ n ] dip multiplier base threshhold < ] find-integer
-   suffixes length or 1 - 0 max ;
+   suffixes length or 1 [-] ;
 
 :: reduce-magnitude ( n multiplier base suffixes -- string )
     n 0 < [