From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 18 Nov 2018 06:32:51 +0000 (+0000)
Subject: Fix definition of relerr.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~24
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4fa686dd802104ebc66e9d7f8abd29c0adc9f296;p=mit-scheme.git

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 b16802a4f..575317a6b 100644
--- 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