From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 8 Dec 2018 14:09:33 +0000 (+0000)
Subject: Supply the new primitives with arities so release-10 can build this.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~35^2~57
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1934853c5a8c1e26ab004b560189cbaa983c829f;p=mit-scheme.git

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 57e8f2679..7239f9600 100644
--- 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)