Merge remote-tracking branch 'origin/master' into modern-harvey2

modern-harvey2
Doug Coleman 2018-04-21 14:45:35 -05:00
commit 62ff48da56
1 changed files with 1 additions and 1 deletions

View File

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