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

fix a normalization bug in decimals

db4
Doug Coleman 2009-10-20 22:37:44 -05:00
parent 32adb5df27
commit c681039c77
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/decimals/decimals-tests.factor
View File

@ -49,3 +49,4 @@ ERROR: decimal-test-failure D1 D2 quot ;
[ f ] [ D: -1 D: -2 before? ] unit-test [ f ] [ D: -1 D: -2 before? ] unit-test
[ f ] [ D: -2 D: -2 before? ] unit-test [ f ] [ D: -2 D: -2 before? ] unit-test
[ t ] [ D: -3 D: -2 before? ] unit-test [ t ] [ D: -3 D: -2 before? ] unit-test
[ t ] [ D: .5 D: 0 D: 1.0 between? ] unit-test

6
extra/decimals/decimals.factor
View File

@ -37,8 +37,7 @@ SYNTAX: D: parse-decimal parsed ;
] 2bi ; ] 2bi ;
: scale-decimals ( D1 D2 -- D1' D2' ) : scale-decimals ( D1 D2 -- D1' D2' )
[ drop ] scale-mantissas tuck [ <decimal> ] 2dip <decimal> ;
[ scale-mantissas <decimal> nip ] 2bi ;
ERROR: decimal-types-expected d1 d2 ; ERROR: decimal-types-expected d1 d2 ;
@ -83,3 +82,6 @@ M: decimal before?
e1 e1
e2 a + - <decimal> ; e2 a + - <decimal> ;
M: decimal <=>
2dup before? [ 2drop +lt+ ] [ equal? +eq+ +gt+ ? ] if ; inline