From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 6 Dec 2018 15:04:35 +0000 (-0800)
Subject: Fix: allow compiler to be compiled with current release.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~17
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d76115696929746741337d273b0b5fb6c43c1094;p=mit-scheme.git

Fix: allow compiler to be compiled with current release.
---

diff --git a/src/compiler/base/utils.scm b/src/compiler/base/utils.scm
index 57e8f2679..860d65df7 100644
--- 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)