Changeset 13759 in project


Ignore:
Timestamp:
03/14/09 19:59:29 (11 years ago)
Author:
Kon Lovett
Message:

Update.

Location:
release/4/mailbox
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/mailbox/tags/2.0.0/chicken-primitive-object-inlines.scm

    r13751 r13759  
    279279(define-inline (%fx<= x y) (##core#inline "C_fixnum_less_or_equal_p" x y))
    280280
    281 (define-inline (%fxclosed-right? l x h) (and (%< l x) (%fx<= x h)))
    282 (define-inline (%fxclosed? l x h) (and (%<= l x) (%fx<= x h)))
    283 (define-inline (%fxclosed-left? l x h) (and (%<= l x) (%fx< x h)))
     281(define-inline (%fxclosed-right? l x h) (and (fx%< l x) (%fx<= x h)))
     282(define-inline (%fxclosed? l x h) (and (%fx<= l x) (%fx<= x h)))
     283(define-inline (%fxclosed-left? l x h) (and (%fx<= l x) (%fx< x h)))
    284284
    285285(define-inline (%fxzero? fx) (%fx= 0 fx))
  • release/4/mailbox/trunk/chicken-primitive-object-inlines.scm

    r13751 r13759  
    279279(define-inline (%fx<= x y) (##core#inline "C_fixnum_less_or_equal_p" x y))
    280280
    281 (define-inline (%fxclosed-right? l x h) (and (%< l x) (%fx<= x h)))
    282 (define-inline (%fxclosed? l x h) (and (%<= l x) (%fx<= x h)))
    283 (define-inline (%fxclosed-left? l x h) (and (%<= l x) (%fx< x h)))
     281(define-inline (%fxclosed-right? l x h) (and (fx%< l x) (%fx<= x h)))
     282(define-inline (%fxclosed? l x h) (and (%fx<= l x) (%fx<= x h)))
     283(define-inline (%fxclosed-left? l x h) (and (%fx<= l x) (%fx< x h)))
    284284
    285285(define-inline (%fxzero? fx) (%fx= 0 fx))
Note: See TracChangeset for help on using the changeset viewer.