nip most uses of tuck from extra

[factor.git] / extra / decimals / decimals.factor

diff --git a/extra/decimals/decimals.factor b/extra/decimals/decimals.factor
index cc12b4fed1822ec35349bd18b52de74a9c554d35..d5c62fee5e3d0d4fa4f87ff2f78b2aa18a1d11af 100644 (file)
--- a/extra/decimals/decimals.factor
+++ b/extra/decimals/decimals.factor
@@ -37,7 +37,7 @@ SYNTAX: D: parse-decimal suffix! ;
     ] 2bi ;
 
 : scale-decimals ( D1 D2 -- D1' D2' )
-    scale-mantissas tuck [ <decimal> ] 2dip <decimal> ;
+    scale-mantissas [ <decimal> ] curry bi@ ;
 
 ERROR: decimal-types-expected d1 d2 ;