~ chicken-core (chicken-5) e15054bc91439ba2d3cec140dee9a06e5622bf07

commit e15054bc91439ba2d3cec140dee9a06e5622bf07
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Sep 17 21:14:18 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Sep 17 21:14:18 2010 +0200

    arithmetic test micro tweak

diff --git a/tests/arithmetic-test.scm b/tests/arithmetic-test.scm
index d643ef29..cd0b4cc8 100644
--- a/tests/arithmetic-test.scm
+++ b/tests/arithmetic-test.scm
@@ -105,9 +105,12 @@
 
 #+check
 (load 
- (if (##sys#fudge 3)
-     "arithmetic-test.64.expected"
-     "arithmetic-test.32.expected")
+ (cond-expand
+   (check-numbers "arithmetic-test.numbers.expected")
+   (else
+    (if (##sys#fudge 3)
+	"arithmetic-test.64.expected"
+	"arithmetic-test.32.expected")))
  (lambda (x)
    (apply
     (lambda (c/total1 exp1 _ res1)