From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 16 Dec 2018 00:33:14 +0000 (+0000)
Subject: Move comment to cover all the primitives disabled for this reason.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~35^2~3
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=faa456b8d56da1982fa32a3f37274e56d399fa80;p=mit-scheme.git

Move comment to cover all the primitives disabled for this reason.
---

diff --git a/src/compiler/machines/i386/machin.scm b/src/compiler/machines/i386/machin.scm
index da81e7a4a..c3e84db3a 100644
--- a/src/compiler/machines/i386/machin.scm
+++ b/src/compiler/machines/i386/machin.scm
@@ -361,11 +361,11 @@ USA.
 		  ;; i387; need 64-bit precision.  Let libm do it.
 		  FLONUM-EXP
 		  VECTOR-CONS STRING-ALLOCATE FLOATING-VECTOR-CONS
-		  FLONUM-IS-NORMAL? FLONUM-IS-FINITE? FLONUM-IS-INFINITE?
-		  FLONUM-IS-NAN? FLONUM-IS-ZERO?
-		  FLONUM-IS-NEGATIVE?
 		  ;; Disabled: these require some care to handle
 		  ;; signalling NaN, which can't even be loaded onto
 		  ;; the i387 floating-point stack without raising an
 		  ;; exception.
+		  FLONUM-IS-NORMAL? FLONUM-IS-FINITE? FLONUM-IS-INFINITE?
+		  FLONUM-IS-NAN? FLONUM-IS-ZERO?
+		  FLONUM-IS-NEGATIVE?
 		  FLONUM-COPYSIGN FLONUM-NEGATE FLONUM-ABS))
\ No newline at end of file