diff --git a/extra/decimals/decimals.factor b/extra/decimals/decimals.factor index f9f7ab2e2a..d8ee2d4a6c 100644 --- a/extra/decimals/decimals.factor +++ b/extra/decimals/decimals.factor @@ -26,7 +26,7 @@ SYNTAX: \decimal: parse-decimal suffix! ; : decimal>ratio ( decimal -- ratio ) >decimal< 10^ * ; -: decimal>float ( decimal -- ratio ) decimal>ratio >float ; +: decimal>float ( decimal -- float ) decimal>ratio >float ; : scale-mantissas ( D1 D2 -- m1 m2 exp ) [ [ mantissa>> ] bi@ ]