Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing inexact comparisons to handle different signed arguments.

Browse source
This commit is contained in:
Alex Shinn 2013-07-13 09:14:57 +09:00
parent 77cf790158
commit a49907b9b6
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lib/chibi/test.scm
View file

@ -244,8 +244,13 @@
(else #f)))
(define (approx-equal? a b epsilon)
(< (abs (- 1 (abs (if (zero? b) (+ 1 a) (/ a b)))))
epsilon))
(cond
((> (abs a) (abs b))
(approx-equal? b a epsilon))
((zero? b)
(< (abs a) epsilon))
(else
(< (abs (/ (- a b) b)) epsilon))))
(define (call-with-output-string proc)
(let ((out (open-output-string)))