Merge remote-tracking branch 'origin/master' into modern-harvey2
commit
62ff48da56
|
@ -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@ ]
|
||||
|
|
Loading…
Reference in New Issue