decimals: fix stack effect for decimal>float.

diff --git a/extra/decimals/decimals.factor b/extra/decimals/decimals.factor
index b8eb6a69299f73e4f61c1d52177ef5f12f34e90e..d371a5932a3c99a8a261e7b0b9169b987062ce62 100644 (file)
--- 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@ ]