Define `TC_COMPLEX' to self-evaluate.

diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index 3011b2177abbc60de331c27de788b4d6ae85b062..767747cbe5337542b0535e81f39162b1d27d0e60 100644 (file)
--- 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 a4bb6baa852bceaee11b48268b2acac4f9533abe..21835e893340edbf1b9829b590324c8458ecd256 100644 (file)
--- 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. */
 \f
@@ -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 3011b2177abbc60de331c27de788b4d6ae85b062..767747cbe5337542b0535e81f39162b1d27d0e60 100644 (file)
--- 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 83ce854255cf4abae0d6af296c1394c8fec32c93..32a5b7fe1ca7c3235e63234b2094d0e6a432f0a1 100644 (file)
--- 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. */
 \f
@@ -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