Supply the new primitives with arities so release-10 can build this.

diff --git a/src/compiler/base/utils.scm b/src/compiler/base/utils.scm
index 57e8f267945353edcb923d0a217195c89a6bb4bc..7239f9600f2a04ddecefada946cc8972c131c3f0 100644 (file)
--- a/src/compiler/base/utils.scm
+++ b/src/compiler/base/utils.scm
@@ -296,21 +296,21 @@ USA.
        (ucode-primitive flonum-equal?)
        (ucode-primitive flonum-greater?)
        (ucode-primitive flonum-integer?)
-       (ucode-primitive flonum-is-equal?)
-       (ucode-primitive flonum-is-finite?)
-       (ucode-primitive flonum-is-greater-or-equal?)
-       (ucode-primitive flonum-is-greater?)
-       (ucode-primitive flonum-is-infinite?)
-       (ucode-primitive flonum-is-less-or-equal?)
-       (ucode-primitive flonum-is-less-or-greater?)
-       (ucode-primitive flonum-is-less?)
-       (ucode-primitive flonum-is-nan?)
-       (ucode-primitive flonum-is-negative?)
-       (ucode-primitive flonum-is-normal?)
-       (ucode-primitive flonum-is-unordered?)
-       (ucode-primitive flonum-is-zero?)
+       (ucode-primitive flonum-is-equal? 2)
+       (ucode-primitive flonum-is-finite? 1)
+       (ucode-primitive flonum-is-greater-or-equal? 2)
+       (ucode-primitive flonum-is-greater? 2)
+       (ucode-primitive flonum-is-infinite? 1)
+       (ucode-primitive flonum-is-less-or-equal? 2)
+       (ucode-primitive flonum-is-less-or-greater? 2)
+       (ucode-primitive flonum-is-less? 2)
+       (ucode-primitive flonum-is-nan? 1)
+       (ucode-primitive flonum-is-negative? 1)
+       (ucode-primitive flonum-is-normal? 1)
+       (ucode-primitive flonum-is-unordered? 2)
+       (ucode-primitive flonum-is-zero? 1)
        (ucode-primitive flonum-less?)
-       (ucode-primitive flonum-nan-quiet?)
+       (ucode-primitive flonum-nan-quiet? 1)
        (ucode-primitive flonum-negative?)
        (ucode-primitive flonum-positive?)
        (ucode-primitive flonum-zero?)
@@ -415,10 +415,10 @@ USA.
        (ucode-primitive flonum-lgamma)
        (ucode-primitive flonum-log)
        (ucode-primitive flonum-log1p)
-       (ucode-primitive flonum-make-nan)
+       (ucode-primitive flonum-make-nan 3)
        (ucode-primitive flonum-modulo)
        (ucode-primitive flonum-multiply)
-       (ucode-primitive flonum-nan-payload)
+       (ucode-primitive flonum-nan-payload 1)
        (ucode-primitive flonum-negate)
        (ucode-primitive flonum-nextafter)
        (ucode-primitive flonum-normalize)