From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 7 Jan 1987 18:36:23 +0000 (+0000)
Subject: Define `TC_COMPLEX' to self-evaluate.
X-Git-Tag: 20090517-FFI~13762
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fa5adc91507edd6108a6b2ba1e9ce4f069bce900;p=mit-scheme.git

Define `TC_COMPLEX' to self-evaluate.
---

diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index 3011b2177..767747cbe 100644
--- a/v7/src/microcode/interp.c
+++ b/v7/src/microcode/interp.c
@@ -413,6 +413,7 @@ Eval_Non_Trapping:
     case TC_CHARACTER_STRING:
     case TC_CHARACTER:
     case TC_COMPILED_PROCEDURE:
+    case TC_COMPLEX:
     case TC_CONTROL_POINT:
     case TC_DELAYED:
     case TC_ENVIRONMENT:
diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index a4bb6baa8..21835e893 100644
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.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/Attic/version.h,v 5.5 1987/01/05 18:49:26 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 5.6 1987/01/07 18:35:54 cph Exp $
 
 This file contains version information for the microcode. */
 
@@ -46,7 +46,7 @@ This file contains version information for the microcode. */
 #define VERSION		9
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	14
+#define SUBVERSION	15
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
diff --git a/v8/src/microcode/interp.c b/v8/src/microcode/interp.c
index 3011b2177..767747cbe 100644
--- a/v8/src/microcode/interp.c
+++ b/v8/src/microcode/interp.c
@@ -413,6 +413,7 @@ Eval_Non_Trapping:
     case TC_CHARACTER_STRING:
     case TC_CHARACTER:
     case TC_COMPILED_PROCEDURE:
+    case TC_COMPLEX:
     case TC_CONTROL_POINT:
     case TC_DELAYED:
     case TC_ENVIRONMENT:
diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index 83ce85425..32a5b7fe1 100644
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.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/v8/src/microcode/version.h,v 5.5 1987/01/05 18:49:26 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 5.6 1987/01/07 18:35:54 cph Exp $
 
 This file contains version information for the microcode. */
 
@@ -46,7 +46,7 @@ This file contains version information for the microcode. */
 #define VERSION		9
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	14
+#define SUBVERSION	15
 #endif
 
 #ifndef UCODE_TABLES_FILENAME