Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing bug in test-equal? returning numeric results for non-real expects.

Browse source
This commit is contained in:
Alex Shinn 2013-05-02 23:52:37 +09:00
parent 98863f53cb
commit d6c20873e4
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lib/chibi/test.scm
View file

@ -673,6 +673,7 @@
(real? res)
(approx-equal? expect res (current-test-epsilon)))
(and (complex? res)
(complex? expect)
(test-equal? (real-part expect) (real-part res))
(test-equal? (imag-part expect) (imag-part res))))))