Fix definition of relerr.

The expected magnitude should be, well, the magnitude of the expected
value, not the one we actually computed!

Fortunately it doesn't change the outcome of any of the tests here.

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index b16802a4fa946c36ab8f509c2914dbeb803db37b..575317a6ba08d2c0d60b04f73fff18428f7897a4 100644 (file)
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -231,7 +231,7 @@ USA.
 (define (relerr e a)
   (if (= e 0)
       (if (= a 0) 0 1)
-      (magnitude (/ (- e a) a))))
+      (magnitude (/ (- e a) e))))
 
 (define-enumerated-test 'expm1-approx
   (vector