Changeset 13760 in project
 Timestamp:
 03/14/09 19:59:42 (11 years ago)
 Location:
 release/4/stack
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

release/4/stack/tags/2.0.0/chickenprimitiveobjectinlines.scm
r13752 r13760 279 279 (defineinline (%fx<= x y) (##core#inline "C_fixnum_less_or_equal_p" x y)) 280 280 281 (defineinline (%fxclosedright? l x h) (and ( %< l x) (%fx<= x h)))282 (defineinline (%fxclosed? l x h) (and (% <= l x) (%fx<= x h)))283 (defineinline (%fxclosedleft? l x h) (and (% <= l x) (%fx< x h)))281 (defineinline (%fxclosedright? l x h) (and (fx%< l x) (%fx<= x h))) 282 (defineinline (%fxclosed? l x h) (and (%fx<= l x) (%fx<= x h))) 283 (defineinline (%fxclosedleft? l x h) (and (%fx<= l x) (%fx< x h))) 284 284 285 285 (defineinline (%fxzero? fx) (%fx= 0 fx)) 
release/4/stack/trunk/chickenprimitiveobjectinlines.scm
r13752 r13760 279 279 (defineinline (%fx<= x y) (##core#inline "C_fixnum_less_or_equal_p" x y)) 280 280 281 (defineinline (%fxclosedright? l x h) (and ( %< l x) (%fx<= x h)))282 (defineinline (%fxclosed? l x h) (and (% <= l x) (%fx<= x h)))283 (defineinline (%fxclosedleft? l x h) (and (% <= l x) (%fx< x h)))281 (defineinline (%fxclosedright? l x h) (and (fx%< l x) (%fx<= x h))) 282 (defineinline (%fxclosed? l x h) (and (%fx<= l x) (%fx<= x h))) 283 (defineinline (%fxclosedleft? l x h) (and (%fx<= l x) (%fx< x h))) 284 284 285 285 (defineinline (%fxzero? fx) (%fx= 0 fx))
Note: See TracChangeset
for help on using the changeset viewer.