From d76115696929746741337d273b0b5fb6c43c1094 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 6 Dec 2018 07:04:35 -0800 Subject: [PATCH] Fix: allow compiler to be compiled with current release. --- src/compiler/base/utils.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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) -- 2.25.1