From dff079e899ae7032dd1383903ac2f3034f220bfe Mon Sep 17 00:00:00 2001
From: "Henry M. Wu" <edu/mit/csail/zurich/mhwu>
Date: Sat, 4 Jun 1988 23:23:21 +0000
Subject: [PATCH] Added complex number abstraction.

---
 v7/src/microcode/sdata.h | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/v7/src/microcode/sdata.h b/v7/src/microcode/sdata.h
index 4a74b8bb8..6b020e87b 100644
--- a/v7/src/microcode/sdata.h
+++ b/v7/src/microcode/sdata.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/sdata.h,v 9.28 1988/02/12 16:52:13 jinx Rel $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/sdata.h,v 9.29 1988/06/04 23:23:21 mhwu Exp $
  *
  * Description of the user data objects.  This should parallel the
  * file SDATA.SCM in the runtime system.
@@ -450,3 +450,10 @@ MIT in each case. */
 /* VECTOR_8B
  * An alternate name of CHARACTER_STRING.
  */
+
+/* COMPLEX
+ * System Pair with REAL in CAR and IMAGINARY in CDR
+ */
+
+#define COMPLEX_REAL		0
+#define COMPLEX_IMAG		1
-- 
2.25.1