From b8315765b5f49196ae34605a7b80686be63b016e Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 17 Jan 2017 20:28:25 -0800 Subject: [PATCH] A couple of other tweaks. --- src/runtime/fixart.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/runtime/fixart.scm b/src/runtime/fixart.scm index e07740929..42ab3206f 100644 --- a/src/runtime/fixart.scm +++ b/src/runtime/fixart.scm @@ -79,17 +79,17 @@ USA. (define-guarantee non-positive-fixnum "non-positive fixnum") (define-guarantee non-negative-fixnum "non-negative fixnum") -(define-integrable (guarantee-index-fixnum object caller) +(define (guarantee-index-fixnum object #!optional caller) (if (not (index-fixnum? object)) (error:wrong-type-argument object "index integer" caller))) -(define (guarantee-limited-index-fixnum object limit caller) +(define (guarantee-limited-index-fixnum object limit #!optional caller) (guarantee-index-fixnum object caller) (if (not (fix:< object limit)) (error:bad-range-argument object caller))) -(define-integrable (fix:<= n m) (not (fix:> n m))) -(define-integrable (fix:>= n m) (not (fix:< n m))) +(define (fix:<= n m) (not (fix:> n m))) +(define (fix:>= n m) (not (fix:< n m))) (define (fix:min n m) (if (fix:< n m) n m)) (define (fix:max n m) (if (fix:> n m) n m)) -- 2.25.1