From a2b3314e628b5af7cbbad712a17143eabdbfa7c9 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 8 Jul 2019 15:33:23 -0400 Subject: [PATCH] Don't use +inf.0 because it throws an exception on macos. This will need to be fixed but right now it prevents compilation. --- src/runtime/arith.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)))) -- 2.25.1