From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 18 Jan 2017 04:28:25 +0000 (-0800)
Subject: A couple of other tweaks.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~110
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b8315765b5f49196ae34605a7b80686be63b016e;p=mit-scheme.git

A couple of other tweaks.
---

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))