Fix self evaluation of compiled entries which are not compiled

expressions.

diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index 6492ced7288cf80f4503fd3899359be9a52e8f62..87ae0d6ff97041c345f79b53a2ba8a78f8aa0028 100644 (file)
--- a/v7/src/microcode/interp.c
+++ b/v7/src/microcode/interp.c
@@ -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/interp.c,v 9.46 1988/09/29 04:58:42 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/interp.c,v 9.47 1988/11/10 06:14:18 jinx Exp $
  *
  * This file contains the heart of the Scheme Scode
  * interpreter
@@ -664,7 +664,7 @@ Eval_Non_Trapping:
 
        compiled_expression = (Fetch_Expression ());
        execute_compiled_setup();
-       Store_Expression ((Pointer) (Get_Pointer (compiled_expression)));
+       Store_Expression (compiled_expression);
        Export_Registers();
        Which_Way = enter_compiled_expression();
        goto return_from_compiled_code;

diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 73d89f988aef2a072d458176c00b38b9a72504e3..7d1124e2b6494af86fb8b0d65b79c83f75dce410 100644 (file)
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 10.61 1988/11/08 07:30:57 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 10.62 1988/11/10 06:13:19 jinx Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION                10
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     61
+#define SUBVERSION     62
 #endif
 
 #ifndef UCODE_TABLES_FILENAME

diff --git a/v8/src/microcode/interp.c b/v8/src/microcode/interp.c
index 3d631cf6cf695be6e9c2d1e258b0e2db8016409f..11141c1c695e9b1c3ee482a8c02537f2b3e2246f 100644 (file)
--- a/v8/src/microcode/interp.c
+++ b/v8/src/microcode/interp.c
@@ -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/interp.c,v 9.46 1988/09/29 04:58:42 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/interp.c,v 9.47 1988/11/10 06:14:18 jinx Exp $
  *
  * This file contains the heart of the Scheme Scode
  * interpreter
@@ -664,7 +664,7 @@ Eval_Non_Trapping:
 
        compiled_expression = (Fetch_Expression ());
        execute_compiled_setup();
-       Store_Expression ((Pointer) (Get_Pointer (compiled_expression)));
+       Store_Expression (compiled_expression);
        Export_Registers();
        Which_Way = enter_compiled_expression();
        goto return_from_compiled_code;

diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index 2db752e06727f9053f8f15c12fcc8b879ed5e51a..48ffd73b4bbfe7dc241208f81692f035ac0f0b58 100644 (file)
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 10.61 1988/11/08 07:30:57 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 10.62 1988/11/10 06:13:19 jinx Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION                10
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     61
+#define SUBVERSION     62
 #endif
 
 #ifndef UCODE_TABLES_FILENAME