From 1934853c5a8c1e26ab004b560189cbaa983c829f Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sat, 8 Dec 2018 14:09:33 +0000 Subject: [PATCH] Supply the new primitives with arities so release-10 can build this. --- src/compiler/base/utils.scm | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) 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) -- 2.25.1