From d1eb8a31a36a20397b392b8fb2e820dfe0a9281f Mon Sep 17 00:00:00 2001
From: Jim Miller <edu/mit/csail/zurich/jmiller>
Date: Wed, 3 Nov 1993 19:19:53 +0000
Subject: [PATCH] Turned off Eval_Debug code permanently, since
 Print_Expressions isn't really available here.

---
 v7/src/microcode/interp.c | 10 +++++-----
 v8/src/microcode/interp.c | 10 +++++-----
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index 805969d8a..4dfdce89e 100644
--- a/v7/src/microcode/interp.c
+++ b/v7/src/microcode/interp.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: interp.c,v 9.79 1993/10/14 19:15:10 gjr Exp $
+$Id: interp.c,v 9.80 1993/11/03 19:19:53 jmiller Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -574,7 +574,7 @@ Repeat_Dispatch:
 
 Do_Expression:
 
-  if (Eval_Debug)
+  if (0 && Eval_Debug)
   {
     Print_Expression ((Fetch_Expression ()), "Eval, expression");
     outf_console ("\n");
@@ -988,7 +988,7 @@ Pop_Return_Non_Trapping:
     Export_Registers();
     Microcode_Termination (TERM_BAD_STACK);
   }
-  if (Eval_Debug)
+  if (0 && Eval_Debug)
   {
     Print_Return ("Pop_Return, return code");
     Print_Expression (Val, "Pop_Return, value");
@@ -1606,7 +1606,7 @@ apply_dispatch:
 	      }
 	    }
 
-	    if (Eval_Debug)
+	    if (0 && Eval_Debug)
 	    {
 	      Print_Expression(LONG_TO_UNSIGNED_FIXNUM(nargs),
 			       "APPLY: Number of arguments");
@@ -1717,7 +1717,7 @@ apply_dispatch:
 
             nargs = OBJECT_DATUM (STACK_POP ()) - STACK_FRAME_HEADER;
 
-	    if (Eval_Debug)
+	    if (0 && Eval_Debug)
 	    {
 	      Print_Expression(LONG_TO_UNSIGNED_FIXNUM(nargs+STACK_FRAME_HEADER),
 			       "APPLY: Number of arguments");
diff --git a/v8/src/microcode/interp.c b/v8/src/microcode/interp.c
index 805969d8a..4dfdce89e 100644
--- a/v8/src/microcode/interp.c
+++ b/v8/src/microcode/interp.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: interp.c,v 9.79 1993/10/14 19:15:10 gjr Exp $
+$Id: interp.c,v 9.80 1993/11/03 19:19:53 jmiller Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -574,7 +574,7 @@ Repeat_Dispatch:
 
 Do_Expression:
 
-  if (Eval_Debug)
+  if (0 && Eval_Debug)
   {
     Print_Expression ((Fetch_Expression ()), "Eval, expression");
     outf_console ("\n");
@@ -988,7 +988,7 @@ Pop_Return_Non_Trapping:
     Export_Registers();
     Microcode_Termination (TERM_BAD_STACK);
   }
-  if (Eval_Debug)
+  if (0 && Eval_Debug)
   {
     Print_Return ("Pop_Return, return code");
     Print_Expression (Val, "Pop_Return, value");
@@ -1606,7 +1606,7 @@ apply_dispatch:
 	      }
 	    }
 
-	    if (Eval_Debug)
+	    if (0 && Eval_Debug)
 	    {
 	      Print_Expression(LONG_TO_UNSIGNED_FIXNUM(nargs),
 			       "APPLY: Number of arguments");
@@ -1717,7 +1717,7 @@ apply_dispatch:
 
             nargs = OBJECT_DATUM (STACK_POP ()) - STACK_FRAME_HEADER;
 
-	    if (Eval_Debug)
+	    if (0 && Eval_Debug)
 	    {
 	      Print_Expression(LONG_TO_UNSIGNED_FIXNUM(nargs+STACK_FRAME_HEADER),
 			       "APPLY: Number of arguments");
-- 
2.25.1