Changeset 13797 in project
- Timestamp:
- 03/17/09 04:06:49 (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
r13759 r13797 979 979 (define-inline (%even? n) (##core#inline "C_i_evenp" n)) 980 980 981 (define-inline (%+ x y) ((##core#primitive "C_plus") x y)) 981 982 (define-inline (%- x y) ((##core#primitive "C_minus") x y)) 982 983 (define-inline (%* x y) ((##core#primitive "C_times") x y)) 983 984 (define-inline (%/ x y) ((##core#primitive "C_divide") x y)) 984 (define-inline (%+ x y) ((##core#primitive "C_plus") x y)) 985 986 (define-inline (%add1 x) (%+ x 1)) 987 (define-inline (%sub1 x) (%- x 1)) 985 988 986 989 (define-inline (%quotient x y) ((##core#primitive "C_quotient") x y)) -
release/4/mailbox/trunk/chicken-primitive-object-inlines.scm
r13759 r13797 979 979 (define-inline (%even? n) (##core#inline "C_i_evenp" n)) 980 980 981 (define-inline (%+ x y) ((##core#primitive "C_plus") x y)) 981 982 (define-inline (%- x y) ((##core#primitive "C_minus") x y)) 982 983 (define-inline (%* x y) ((##core#primitive "C_times") x y)) 983 984 (define-inline (%/ x y) ((##core#primitive "C_divide") x y)) 984 (define-inline (%+ x y) ((##core#primitive "C_plus") x y)) 985 986 (define-inline (%add1 x) (%+ x 1)) 987 (define-inline (%sub1 x) (%- x 1)) 985 988 986 989 (define-inline (%quotient x y) ((##core#primitive "C_quotient") x y))
Note: See TracChangeset
for help on using the changeset viewer.