From fa5adc91507edd6108a6b2ba1e9ce4f069bce900 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 7 Jan 1987 18:36:23 +0000 Subject: [PATCH] Define `TC_COMPLEX' to self-evaluate. --- v7/src/microcode/interp.c | 1 + v7/src/microcode/version.h | 4 ++-- v8/src/microcode/interp.c | 1 + v8/src/microcode/version.h | 4 ++-- 4 files changed, 6 insertions(+), 4 deletions(-) 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 -- 2.25.1