From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Mon, 26 Jun 1995 14:09:49 +0000 (+0000)
Subject: Fresh *dbg-rewrites* table for each recursive compilation.
X-Git-Tag: 20090517-FFI~6239
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d9d4cfa50b93e82abfb32a3f451a8204eeccfb43;p=mit-scheme.git

Fresh *dbg-rewrites* table for each recursive compilation.
---

diff --git a/v8/src/compiler/midend/midend.scm b/v8/src/compiler/midend/midend.scm
index 26abdf6cb..5bfbf0e5c 100644
--- a/v8/src/compiler/midend/midend.scm
+++ b/v8/src/compiler/midend/midend.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: midend.scm,v 1.12 1995/06/26 14:07:19 adams Exp $
+$Id: midend.scm,v 1.13 1995/06/26 14:09:49 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -288,8 +288,9 @@ Example:
 		   (copy-variable-properties)))
 	      (*after-cps-conversion?* false)
 	      (*previous-code-rewrite-table* false)
-	      (*dbg-rewrites*
-	       (if (not recursive?) (dbg-info/make-rewrites) *dbg-rewrites*))
+	      (*dbg-rewrites* (dbg-info/make-rewrites))
+	      ;;(*dbg-rewrites*
+	      ;; (if (not recursive?) (dbg-info/make-rewrites) *dbg-rewrites*))
 	      (*code-rewrite-table*
 	       (if (not recursive?)
 		   (code/rewrite-table/make)