From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 20 Apr 2019 19:23:16 +0000 (+0000)
Subject: Specify arity in newer primitives.
X-Git-Tag: mit-scheme-pucked-10.1.11~6^2~30
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4c0bd8339bc5f3c59f55c62c6f35440bff2cb3bf;p=mit-scheme.git

Specify arity in newer primitives.
---

diff --git a/src/sf/gconst.scm b/src/sf/gconst.scm
index 9a2fbe7e6..31933924e 100644
--- a/src/sf/gconst.scm
+++ b/src/sf/gconst.scm
@@ -125,39 +125,39 @@ USA.
     (flo:atan2 flonum-atan2)
     (flo:ceiling flonum-ceiling)
     (flo:ceiling->exact flonum-ceiling->exact)
-    (flo:copysign flonum-copysign)
+    (flo:copysign flonum-copysign 2)
     (flo:cos flonum-cos)
     (flo:exp flonum-exp)
     (flo:expm1 flonum-expm1)
     (flo:expt flonum-expt)
-    (flo:finite? flonum-is-finite?)
+    (flo:finite? flonum-is-finite? 1)
     (flo:flonum? flonum?)
     (flo:floor flonum-floor)
     (flo:floor->exact flonum-floor->exact)
-    (flo:infinite? flonum-is-infinite?)
+    (flo:infinite? flonum-is-infinite? 1)
     (flo:log flonum-log)
     (flo:log1p flonum-log1p)
-    (flo:nan? flonum-is-nan?)
+    (flo:nan? flonum-is-nan? 1)
     (flo:negate flonum-negate)
     (flo:negative? flonum-negative?)
-    (flo:normal? flonum-is-normal?)
+    (flo:normal? flonum-is-normal? 1)
     (flo:positive? flonum-positive?)
     (flo:round flonum-round)
     (flo:round->exact flonum-round->exact)
-    (flo:safe-zero? flonum-is-zero?)
-    (flo:safe< flonum-is-less?)
-    (flo:safe<= flonum-is-less-or-equal?)
-    (flo:safe<> flonum-is-less-or-greater?)
-    (flo:safe= flonum-is-equal?)
-    (flo:safe> flonum-is-greater?)
-    (flo:safe>= flonum-is-greater-or-equal?)
-    (flo:sign-negative? flonum-is-negative?)
+    (flo:safe-zero? flonum-is-zero? 1)
+    (flo:safe< flonum-is-less? 2)
+    (flo:safe<= flonum-is-less-or-equal? 2)
+    (flo:safe<> flonum-is-less-or-greater? 2)
+    (flo:safe= flonum-is-equal? 2)
+    (flo:safe> flonum-is-greater? 2)
+    (flo:safe>= flonum-is-greater-or-equal? 2)
+    (flo:sign-negative? flonum-is-negative? 1)
     (flo:sin flonum-sin)
     (flo:sqrt flonum-sqrt)
     (flo:tan flonum-tan)
     (flo:truncate flonum-truncate)
     (flo:truncate->exact flonum-truncate->exact)
-    (flo:unordered? flonum-is-unordered?)
+    (flo:unordered? flonum-is-unordered? 2)
     (flo:vector-cons floating-vector-cons)
     (flo:vector-length floating-vector-length)
     (flo:vector-ref floating-vector-ref)