From 2a8e8ba025069b41acf015328cd3b7f3315e2fa1 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 19 Apr 2018 15:23:04 -0700 Subject: [PATCH] decimals: fix stack effect for decimal>float. --- extra/decimals/decimals.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/decimals/decimals.factor b/extra/decimals/decimals.factor index b8eb6a69299..d371a5932a3 100644 --- a/extra/decimals/decimals.factor +++ b/extra/decimals/decimals.factor @@ -23,7 +23,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@ ]