decimals: fix stack effect for decimal>float.

paths
John Benediktsson 2018-04-19 15:23:04 -07:00
parent 9b2eac2942
commit 2a8e8ba025
1 changed files with 1 additions and 1 deletions

View File

@ -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@ ]