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 da81e7a4af78ff8dc4f1caf1e0da07b9d7257a21..c3e84db3a6aa16b4264802a05ef1f189551702ed 100644 (file)
--- 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