From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 8 Jul 2019 19:33:23 +0000 (-0400)
Subject: Don't use +inf.0 because it throws an exception on macos.
X-Git-Tag: mit-scheme-pucked-10.1.12~7^2~17
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a2b3314e628b5af7cbbad712a17143eabdbfa7c9;p=mit-scheme.git

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 1a725e497..b196ac646 100644
--- 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))))