From 7326328b4a3ac884de2bc6dcabd44f40adbd5898 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 18 Aug 1995 22:16:20 +0000
Subject: [PATCH] Update comment containing useful code for viewing DBG info.

---
 v8/src/compiler/midend/midend.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/v8/src/compiler/midend/midend.scm b/v8/src/compiler/midend/midend.scm
index 9401b99e6..ea4d631c0 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.16 1995/08/08 16:20:41 adams Exp $
+$Id: midend.scm,v 1.17 1995/08/18 22:16:20 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -157,7 +157,9 @@ Example:
 	   (or (eq? *phases-to-pp/ann* 'all)
 	       (memq *current-phase* *phases-to-pp/ann*)))
       (begin
-	(pp/ann result *code-rewrite-table*)
+	(let ((table *code-rewrite-table*))
+	  (pp/ann result
+		  (lambda (e) (monotonic-strong-eq-hash-table/get table e #F))))
 	(pp `(phase is ,*current-phase*))
 	(bkpt ";; proceed"))))
 |#
-- 
2.25.1