suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Modified default comparison for floating point numbers in tests to 0.0001

Browse Source 
svn: r5780
This commit is contained in:
Kathy Gray 2007-03-16 15:18:17 +00:00
parent 095380d21b
commit e9d4954768
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/profj/libs/java/runtime.scm
View File

@ -204,7 +204,7 @@
;compare: val val (list symbol string ...) string (U #f object) boolean-> boolean
(define (compare test act info src test-obj catch?)
(compare-within test act 0.0 info src test-obj catch? #f))
(compare-within test act 0.0001 info src test-obj catch? #f))
(define exception (gensym 'exception))
;(make-exn-thrown exn boolean string)
@ -218,7 +218,7 @@
(already-seen? v1 v2 visited-v1 visited-v2)
(cond
((and (number? v1) (number? v2))
(if (or (inexact? v1) (inexact? v2) (not (= range 0.0)))
(if (or (inexact? v1) (inexact? v2) (not (null? within?)))
(<= (abs (- v1 v2)) range)
(= v1 v2)))
((and (object? v1) (object? v2))