Fix: allow compiler to be compiled with current release.

diff --git a/src/compiler/base/utils.scm b/src/compiler/base/utils.scm
index 57e8f267945353edcb923d0a217195c89a6bb4bc..860d65df7f78ab313047942048b62b573d3182df 100644 (file)
--- a/src/compiler/base/utils.scm
+++ b/src/compiler/base/utils.scm
@@ -296,7 +296,7 @@ USA.
        (ucode-primitive flonum-equal?)
        (ucode-primitive flonum-greater?)
        (ucode-primitive flonum-integer?)
-       (ucode-primitive flonum-is-equal?)
+       (ucode-primitive flonum-is-equal? 2)
        (ucode-primitive flonum-is-finite?)
        (ucode-primitive flonum-is-greater-or-equal?)
        (ucode-primitive flonum-is-greater?)
@@ -308,9 +308,9 @@ USA.
        (ucode-primitive flonum-is-negative?)
        (ucode-primitive flonum-is-normal?)
        (ucode-primitive flonum-is-unordered?)
-       (ucode-primitive flonum-is-zero?)
+       (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)