From b22c278736489c2f3f6f75196f0d173325a89215 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 6 Mar 1995 23:32:39 +0000
Subject: [PATCH] Add INC and DEC procedures.

---
 v7/src/6001/6001.pkg  |  6 ++++--
 v7/src/6001/arith.scm | 10 ++++++++--
 2 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/v7/src/6001/6001.pkg b/v7/src/6001/6001.pkg
index a9abf4bb9..0a8fba25c 100644
--- 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 5cf4a95cd..fedac831d 100644
--- 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))
 
 (define (= . zs)
   (reduce-comparator real:= zs '=))
-- 
2.25.1