Add INC and DEC procedures.

diff --git a/v7/src/6001/6001.pkg b/v7/src/6001/6001.pkg
index a9abf4bb9079eacb8e86c96ee78212ae33985b82..0a8fba25c9356fd75cb3f81e2ce45b02b878d2f2 100644 (file)
--- a/v7/src/6001/6001.pkg
+++ b/v7/src/6001/6001.pkg
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: 6001.pkg,v 1.9 1994/01/08 21:37:20 gjr Exp $
+$Id: 6001.pkg,v 1.10 1995/03/06 23:32:39 cph Exp $
 
-Copyright (c) 1991-1994 Massachusetts Institute of Technology
+Copyright (c) 1991-95 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -79,6 +79,7 @@ MIT in each case. |#
          ceiling
          complex?
          cos
+         dec
          denominator
          even?
          exact->inexact
@@ -87,6 +88,7 @@ MIT in each case. |#
          expt
          floor
          gcd
+         inc
          inexact->exact
          inexact?
          integer?

diff --git a/v7/src/6001/arith.scm b/v7/src/6001/arith.scm
index 5cf4a95cd7e5aae716b8e040b70907129a38f6fe..fedac831d537b52032fb1fd964c2790512167849 100644 (file)
--- a/v7/src/6001/arith.scm
+++ b/v7/src/6001/arith.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: arith.scm,v 1.4 1993/08/12 06:56:37 cph Exp $
+$Id: arith.scm,v 1.5 1995/03/06 23:32:34 cph Exp $
 
-Copyright (c) 1989-93 Massachusetts Institute of Technology
+Copyright (c) 1989-95 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -325,6 +325,12 @@ MIT in each case. |#
 
 (define (odd? n)
   (not (even? n)))
+
+(define (inc z)
+  (+ z 1))
+
+(define (dec z)
+  (- z 1))
 \f
 (define (= . zs)
   (reduce-comparator real:= zs '=))