conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

- fixed a silly bug in (/ <bignum> x/y) which evaluated to 

(/ (* <bignum> x) y) instead of (/ (* <bignum> y) x).
This commit is contained in:
Abdulaziz Ghuloum 2008-10-18 13:34:18 -04:00
parent 69d573a54f
commit 7b32940d04
3 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/ikarus.numerics.ss
View File

@ -1268,7 +1268,7 @@
(quotient y g))))]))] (quotient y g))))]))]
[(flonum? y) ($fl/ (bignum->flonum x) y)] [(flonum? y) ($fl/ (bignum->flonum x) y)]
[(ratnum? y) [(ratnum? y)
(binary/ (binary* x ($ratnum-n y)) ($ratnum-d y))] (binary/ (binary* x ($ratnum-d y)) ($ratnum-n y))]
[(or (compnum? y) (cflonum? y)) (x/compy x y)] [(or (compnum? y) (cflonum? y)) (x/compy x y)]
[else (err '/ y)])] [else (err '/ y)])]
[(ratnum? x) [(ratnum? x)

2
scheme/last-revision
View File

@ -1 +1 @@
1632 1633

6
scheme/tests/div-and-mod.ss
View File

@ -4,9 +4,15 @@
(import (ikarus)) (import (ikarus))
(define (run-tests) (define (run-tests)
(test-/)
(test-div-and-mod) (test-div-and-mod)
(test-div0-and-mod0)) (test-div0-and-mod0))
(define (test-/)
(assert (= (/ 536870912 1/4) 2147483648)))
(define (test-div-and-mod) (define (test-div-and-mod)
(define (test x1 x2) (define (test x1 x2)
(let-values ([(d m) (div-and-mod x1 x2)]) (let-values ([(d m) (div-and-mod x1 x2)])