Changeset 13704 in project for chicken


Ignore:
Timestamp:
03/12/09 10:46:26 (11 years ago)
Author:
Kon Lovett
Message:

Fix for mismatched arg ids.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/chicken-primitive-object-inlines.scm

    r13695 r13704  
    284284(define-inline (%fx<= x y) (##core#inline "C_fixnum_less_or_equal_p" x y))
    285285
    286 (define-inline (%fxclosed-right? l x h) (and (%< l obj) (%fx<= obj h)))
    287 (define-inline (%fxclosed? l x h) (and (%<= l obj) (%fx<= obj h)))
    288 (define-inline (%fxclosed-left? l x h) (and (%<= l obj) (%fx< obj h)))
     286(define-inline (%fxclosed-right? l x h) (and (%< l x) (%fx<= x h)))
     287(define-inline (%fxclosed? l x h) (and (%<= l x) (%fx<= x h)))
     288(define-inline (%fxclosed-left? l x h) (and (%<= l x) (%fx< x h)))
    289289
    290290(define-inline (%fxzero? fx) (%fx= 0 fx))
Note: See TracChangeset for help on using the changeset viewer.