Changeset 13704 in project
- Timestamp:
- 03/12/09 10:46:26 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/trunk/chicken-primitive-object-inlines.scm
r13695 r13704 284 284 (define-inline (%fx<= x y) (##core#inline "C_fixnum_less_or_equal_p" x y)) 285 285 286 (define-inline (%fxclosed-right? l x h) (and (%< l obj) (%fx<= objh)))287 (define-inline (%fxclosed? l x h) (and (%<= l obj) (%fx<= objh)))288 (define-inline (%fxclosed-left? l x h) (and (%<= l obj) (%fx< objh)))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))) 289 289 290 290 (define-inline (%fxzero? fx) (%fx= 0 fx))
Note: See TracChangeset
for help on using the changeset viewer.