Changeset 13796 in project


Ignore:
Timestamp:
03/17/09 04:06:30 (11 years ago)
Author:
Kon Lovett
Message:

Save.

Location:
release/4/box
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/box/tags/2.0.0/chicken-primitive-object-inlines.scm

    r13758 r13796  
    979979(define-inline (%even? n) (##core#inline "C_i_evenp" n))
    980980
     981(define-inline (%+ x y) ((##core#primitive "C_plus") x y))
    981982(define-inline (%- x y) ((##core#primitive "C_minus") x y))
    982983(define-inline (%* x y) ((##core#primitive "C_times") x y))
    983984(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))
    985988
    986989(define-inline (%quotient x y) ((##core#primitive "C_quotient") x y))
  • release/4/box/trunk/chicken-primitive-object-inlines.scm

    r13758 r13796  
    979979(define-inline (%even? n) (##core#inline "C_i_evenp" n))
    980980
     981(define-inline (%+ x y) ((##core#primitive "C_plus") x y))
    981982(define-inline (%- x y) ((##core#primitive "C_minus") x y))
    982983(define-inline (%* x y) ((##core#primitive "C_times") x y))
    983984(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))
    985988
    986989(define-inline (%quotient x y) ((##core#primitive "C_quotient") x y))
Note: See TracChangeset for help on using the changeset viewer.