Fix bug in flo:make-nan error reporting.

error_bad_range_arg takes argument number, not argument value.

diff --git a/src/microcode/flonum.c b/src/microcode/flonum.c
index d6330b9680bb4247ad73505b77d1e0324e047886..051440bcc550b15ce047d5782e2dfc1497534903 100644 (file)
--- a/src/microcode/flonum.c
+++ b/src/microcode/flonum.c
@@ -564,7 +564,7 @@ DEFINE_PRIMITIVE ("FLONUM-MAKE-NAN", Prim_flonum_make_nan, 3, 3, 0)
       uint64_t i;
     } u = { .i = 0 };
     if ((!quiet) && (payload == 0))
-      error_bad_range_arg (payload);
+      error_bad_range_arg (3);
     (u.i) |= (sign << 63);
     (u.i) |= ((UINT64_C (0x7ff)) << 52);
     (u.i) |= (quiet << 51);

diff --git a/tests/runtime/test-flonum.scm b/tests/runtime/test-flonum.scm
index 92895ef7939ebeb1aae0626b6f537f606fa24edc..e68e57ce1ab41b39908721352853afa761d2d71c 100644 (file)
--- a/tests/runtime/test-flonum.scm
+++ b/tests/runtime/test-flonum.scm
@@ -1155,8 +1155,8 @@ USA.
                                  (lambda () (flo:logb (flo:negate x))))))
 
 (define-enumerated-test 'flo:make-nan/error
-  `((#f #f 0 ,expect-error)
-    (#t #f 0 ,expect-error))
+  `((#f #f 0)
+    (#t #f 0))
   (lambda (sign quiet? payload #!optional xfail)
     (with-expected-failure xfail
       (lambda ()