X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=core%2Fmath%2Fintegers%2Fintegers.factor;h=e88caa77039fb1cb24cc792f5de53754c78a1d88;hp=845fdc0fcf1f2ec402c10629cc5fb0ca9b364026;hb=25a877e50b55c7e6ed75ba8c49de12434237ad23;hpb=e4a9276c430038e37513ffc9c69b83f0ca5b9c58

diff --git a/core/math/integers/integers.factor b/core/math/integers/integers.factor
index 845fdc0fcf..e88caa7703 100644
--- a/core/math/integers/integers.factor
+++ b/core/math/integers/integers.factor
@@ -93,7 +93,7 @@ M: bignum (log2) bignum-log2 ;
 
 : pre-scale ( num den -- scale shifted-num scaled-den )
     2dup [ log2 ] bi@ -
-    tuck [ neg 54 + shift ] [ [ scale-denonimator ] dip + ] 2bi*
+    [ neg 54 + shift ] [ [ scale-denonimator ] dip + ] bi-curry bi*
     -rot ; inline
 
 ! Second step: loop