Changeset 14015 in project
 Timestamp:
 03/31/09 19:48:31 (11 years ago)
 Location:
 release/4/stack
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

release/4/stack/tags/2.0.0/chickenprimitiveobjectinlines.scm
r13829 r14015 965 965 (defineinline (%number? x) (or (%fixnum? x) (%flonum? x))) 966 966 (defineinline (%integer? x) (##core#inline "C_i_integerp" x)) 967 968 (defineinline (%= x y) ((##core#primitive "C_i_eqvp") x y)) 969 (defineinline (%< x y) ((##core#primitive "C_i_lessp") x y)) 970 (defineinline (%<= x y) ((##core#primitive "C_i_less_or_equalp") x y)) 971 (defineinline (%> x y) ((##core#primitive "C_i_greaterp") x y)) 972 (defineinline (%>= x y) ((##core#primitive "C_i_greater_or_equalp") x y)) 967 (defineinline (%exact? x) (##core#inline "C_i_exactp" x)) 968 (defineinline (%inexact? x) (##core#inline "C_i_inexactp" x)) 969 970 (defineinline (%= x y) (##core#inline "C_i_eqvp" x y)) 971 (defineinline (%< x y) (##core#inline "C_i_lessp" x y)) 972 (defineinline (%<= x y) (##core#inline "C_i_less_or_equalp" x y)) 973 (defineinline (%> x y) (##core#inline "C_i_greaterp" x y)) 974 (defineinline (%>= x y) (##core#inline "C_i_greater_or_equalp" x y)) 973 975 974 976 (defineinline (%zero? n) (##core#inline "C_i_zerop" n)) 975 977 (defineinline (%positive? n) (##core#inline "C_i_positivep" n)) 976 978 (defineinline (%negative? n) (##core#inline "C_i_negativep" n)) 977 (defineinline (%cardinal? n) (and (%integer? n) (%<= 0 n)))978 979 (defineinline (%odd? n) (##core#inline "C_i_oddp" n)) 979 980 (defineinline (%even? n) (##core#inline "C_i_evenp" n)) 981 (defineinline (%cardinal? n) (and (%integer? n) (%<= 0 n))) 980 982 981 983 (defineinline (%+ x y) ((##core#primitive "C_plus") x y)) 
release/4/stack/trunk/chickenprimitiveobjectinlines.scm
r13829 r14015 965 965 (defineinline (%number? x) (or (%fixnum? x) (%flonum? x))) 966 966 (defineinline (%integer? x) (##core#inline "C_i_integerp" x)) 967 968 (defineinline (%= x y) ((##core#primitive "C_i_eqvp") x y)) 969 (defineinline (%< x y) ((##core#primitive "C_i_lessp") x y)) 970 (defineinline (%<= x y) ((##core#primitive "C_i_less_or_equalp") x y)) 971 (defineinline (%> x y) ((##core#primitive "C_i_greaterp") x y)) 972 (defineinline (%>= x y) ((##core#primitive "C_i_greater_or_equalp") x y)) 967 (defineinline (%exact? x) (##core#inline "C_i_exactp" x)) 968 (defineinline (%inexact? x) (##core#inline "C_i_inexactp" x)) 969 970 (defineinline (%= x y) (##core#inline "C_i_eqvp" x y)) 971 (defineinline (%< x y) (##core#inline "C_i_lessp" x y)) 972 (defineinline (%<= x y) (##core#inline "C_i_less_or_equalp" x y)) 973 (defineinline (%> x y) (##core#inline "C_i_greaterp" x y)) 974 (defineinline (%>= x y) (##core#inline "C_i_greater_or_equalp" x y)) 973 975 974 976 (defineinline (%zero? n) (##core#inline "C_i_zerop" n)) 975 977 (defineinline (%positive? n) (##core#inline "C_i_positivep" n)) 976 978 (defineinline (%negative? n) (##core#inline "C_i_negativep" n)) 977 (defineinline (%cardinal? n) (and (%integer? n) (%<= 0 n)))978 979 (defineinline (%odd? n) (##core#inline "C_i_oddp" n)) 979 980 (defineinline (%even? n) (##core#inline "C_i_evenp" n)) 981 (defineinline (%cardinal? n) (and (%integer? n) (%<= 0 n))) 980 982 981 983 (defineinline (%+ x y) ((##core#primitive "C_plus") x y))
Note: See TracChangeset
for help on using the changeset viewer.