Changeset 13704 in project

Timestamp:

03/12/09 10:46:26 (11 years ago)

Author:

Kon Lovett

Message:

Fix for mismatched arg ids.

File:

• chicken/trunk/chicken-primitive-object-inlines.scm (modified) (1 diff)

chicken/trunk/chicken-primitive-object-inlines.scm

@@ -284 +284 @@
 (define-inline (%fx<= x y) (##core#inline "C_fixnum_less_or_equal_p" x y))
 
-(define-inline (%fxclosed-right? l x h) (and (%< l obj) (%fx<= obj h)))
-(define-inline (%fxclosed? l x h) (and (%<= l obj) (%fx<= obj h)))
-(define-inline (%fxclosed-left? l x h) (and (%<= l obj) (%fx< obj h)))
+(define-inline (%fxclosed-right? l x h) (and (%< l x) (%fx<= x h)))
+(define-inline (%fxclosed? l x h) (and (%<= l x) (%fx<= x h)))
+(define-inline (%fxclosed-left? l x h) (and (%<= l x) (%fx< x h)))
 
 (define-inline (%fxzero? fx) (%fx= 0 fx))