Don't use +inf.0 because it throws an exception on macos.

This will need to be fixed but right now it prevents compilation.

diff --git a/src/runtime/arith.scm b/src/runtime/arith.scm
index 1a725e497d2a10e7119aa919edb5e850b485922f..b196ac646dd522a4f25e1c1ea1e2aa3f816d454f 100644 (file)
--- a/src/runtime/arith.scm
+++ b/src/runtime/arith.scm
@@ -2381,7 +2381,7 @@ USA.
          ((flo:safe-zero? x)
           ;; Negative infinity.
           (flo:/ (identity-procedure -1.) 0.))
-         ((flo:safe<= x +inf.0)
+         ((flo:safe<= x (flo:+inf.0))
           ;; Invalid operation.
           (flo:/ (identity-procedure 0.) 0.))
          (else
@@ -2489,7 +2489,7 @@ USA.
           ;; If it's NaN, just propagate it; otherwise raise
           ;; inexact-result.
           ;;
-          (if (flo:safe<= x +inf.0)
+          (if (flo:safe<= x (flo:+inf.0))
               (flo:raise-exceptions! (flo:exception:inexact-result)))
           x))))
 \f