steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/decimals/decimals.factor
View File

@ -23,7 +23,7 @@ SYNTAX: DECIMAL: parse-decimal suffix! ;
: decimal>ratio ( decimal -- ratio ) >decimal< 10^ * ; : 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 ) : scale-mantissas ( D1 D2 -- m1 m2 exp )
[ [ mantissa>> ] bi@ ] [ [ mantissa>> ] bi@ ]