Changeset 13797 in project

Timestamp:

03/17/09 04:06:49 (11 years ago)

Author:

Kon Lovett

Message:

Save.

Location:

release/4/mailbox

Files:

• tags/2.0.0/chicken-primitive-object-inlines.scm (modified) (1 diff)
• trunk/chicken-primitive-object-inlines.scm (modified) (1 diff)

release/4/mailbox/tags/2.0.0/chicken-primitive-object-inlines.scm

@@ -979 +979 @@
 (define-inline (%even? n) (##core#inline "C_i_evenp" n))
 
+(define-inline (%+ x y) ((##core#primitive "C_plus") x y))
 (define-inline (%- x y) ((##core#primitive "C_minus") x y))
 (define-inline (%* x y) ((##core#primitive "C_times") x y))
 (define-inline (%/ x y) ((##core#primitive "C_divide") x y))
-(define-inline (%+ x y) ((##core#primitive "C_plus") x y))
+
+(define-inline (%add1 x) (%+ x 1))
+(define-inline (%sub1 x) (%- x 1))
 
 (define-inline (%quotient x y) ((##core#primitive "C_quotient") x y))

release/4/mailbox/trunk/chicken-primitive-object-inlines.scm

@@ -979 +979 @@
 (define-inline (%even? n) (##core#inline "C_i_evenp" n))
 
+(define-inline (%+ x y) ((##core#primitive "C_plus") x y))
 (define-inline (%- x y) ((##core#primitive "C_minus") x y))
 (define-inline (%* x y) ((##core#primitive "C_times") x y))
 (define-inline (%/ x y) ((##core#primitive "C_divide") x y))
-(define-inline (%+ x y) ((##core#primitive "C_plus") x y))
+
+(define-inline (%add1 x) (%+ x 1))
+(define-inline (%sub1 x) (%- x 1))
 
 (define-inline (%quotient x y) ((##core#primitive "C_quotient") x y))