steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2015-07-14 15:58:23 -07:00
parent 94ed98e78c
commit 8ccb173da0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/units/reduction/reduction.factor
View File

@ -16,9 +16,9 @@ CONSTANT: unit-suffix-hash H{
[ * ] dip swap ^ ; inline [ * ] dip swap ^ ; inline
:: find-unit-suffix ( suffixes n multiplier base -- i/f ) :: find-unit-suffix ( suffixes n multiplier base -- i/f )
suffixes length suffixes length [
[ [ n ] dip multiplier base threshhold < ] find-integer [ [ n ] dip multiplier base threshhold < ] find-integer
suffixes length or 1 [-] ; ] keep or 1 [-] ;
:: reduce-magnitude ( n multiplier base suffixes -- string ) :: reduce-magnitude ( n multiplier base suffixes -- string )
n 0 < [ n 0 < [