Changeset 14013 in project
- Timestamp:
- 03/31/09 19:48:04 (11 years ago)
- Location:
- release/4/mailbox
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/mailbox/tags/2.0.0/chicken-primitive-object-inlines.scm
r13826 r14013 965 965 (define-inline (%number? x) (or (%fixnum? x) (%flonum? x))) 966 966 (define-inline (%integer? x) (##core#inline "C_i_integerp" x)) 967 968 (define-inline (%= x y) ((##core#primitive "C_i_eqvp") x y)) 969 (define-inline (%< x y) ((##core#primitive "C_i_lessp") x y)) 970 (define-inline (%<= x y) ((##core#primitive "C_i_less_or_equalp") x y)) 971 (define-inline (%> x y) ((##core#primitive "C_i_greaterp") x y)) 972 (define-inline (%>= x y) ((##core#primitive "C_i_greater_or_equalp") x y)) 967 (define-inline (%exact? x) (##core#inline "C_i_exactp" x)) 968 (define-inline (%inexact? x) (##core#inline "C_i_inexactp" x)) 969 970 (define-inline (%= x y) (##core#inline "C_i_eqvp" x y)) 971 (define-inline (%< x y) (##core#inline "C_i_lessp" x y)) 972 (define-inline (%<= x y) (##core#inline "C_i_less_or_equalp" x y)) 973 (define-inline (%> x y) (##core#inline "C_i_greaterp" x y)) 974 (define-inline (%>= x y) (##core#inline "C_i_greater_or_equalp" x y)) 973 975 974 976 (define-inline (%zero? n) (##core#inline "C_i_zerop" n)) 975 977 (define-inline (%positive? n) (##core#inline "C_i_positivep" n)) 976 978 (define-inline (%negative? n) (##core#inline "C_i_negativep" n)) 977 (define-inline (%cardinal? n) (and (%integer? n) (%<= 0 n)))978 979 (define-inline (%odd? n) (##core#inline "C_i_oddp" n)) 979 980 (define-inline (%even? n) (##core#inline "C_i_evenp" n)) 981 (define-inline (%cardinal? n) (and (%integer? n) (%<= 0 n))) 980 982 981 983 (define-inline (%+ x y) ((##core#primitive "C_plus") x y)) -
release/4/mailbox/trunk/chicken-primitive-object-inlines.scm
r13826 r14013 965 965 (define-inline (%number? x) (or (%fixnum? x) (%flonum? x))) 966 966 (define-inline (%integer? x) (##core#inline "C_i_integerp" x)) 967 968 (define-inline (%= x y) ((##core#primitive "C_i_eqvp") x y)) 969 (define-inline (%< x y) ((##core#primitive "C_i_lessp") x y)) 970 (define-inline (%<= x y) ((##core#primitive "C_i_less_or_equalp") x y)) 971 (define-inline (%> x y) ((##core#primitive "C_i_greaterp") x y)) 972 (define-inline (%>= x y) ((##core#primitive "C_i_greater_or_equalp") x y)) 967 (define-inline (%exact? x) (##core#inline "C_i_exactp" x)) 968 (define-inline (%inexact? x) (##core#inline "C_i_inexactp" x)) 969 970 (define-inline (%= x y) (##core#inline "C_i_eqvp" x y)) 971 (define-inline (%< x y) (##core#inline "C_i_lessp" x y)) 972 (define-inline (%<= x y) (##core#inline "C_i_less_or_equalp" x y)) 973 (define-inline (%> x y) (##core#inline "C_i_greaterp" x y)) 974 (define-inline (%>= x y) (##core#inline "C_i_greater_or_equalp" x y)) 973 975 974 976 (define-inline (%zero? n) (##core#inline "C_i_zerop" n)) 975 977 (define-inline (%positive? n) (##core#inline "C_i_positivep" n)) 976 978 (define-inline (%negative? n) (##core#inline "C_i_negativep" n)) 977 (define-inline (%cardinal? n) (and (%integer? n) (%<= 0 n)))978 979 (define-inline (%odd? n) (##core#inline "C_i_oddp" n)) 979 980 (define-inline (%even? n) (##core#inline "C_i_evenp" n)) 981 (define-inline (%cardinal? n) (and (%integer? n) (%<= 0 n))) 980 982 981 983 (define-inline (%+ x y) ((##core#primitive "C_plus") x y))
Note: See TracChangeset
for help on using the changeset viewer.