From 0bb8b38e04a5d0e27da4ac33773db2a5c2a22df7 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 22 Jun 1995 15:20:40 +0000
Subject: [PATCH] Fixed small omission in last change.

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

diff --git a/v8/src/compiler/midend/compat.scm b/v8/src/compiler/midend/compat.scm
index acb8f54f5..c6b97d675 100644
--- a/v8/src/compiler/midend/compat.scm
+++ b/v8/src/compiler/midend/compat.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: compat.scm,v 1.9 1995/06/22 15:11:12 adams Exp $
+$Id: compat.scm,v 1.10 1995/06/22 15:20:40 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -541,7 +541,7 @@ MIT in each case. |#
 	   (LET ((,cell-name
 		  (CALL (QUOTE ,%variable-write-cache) (QUOTE #F)
 			,cell ,quoted-name)))
-	     ,(if (compat/ignore-assignment-traps? name)
+	     ,(if (quote/text ignore-traps?)
 
 		  `(CALL (QUOTE ,%variable-cell-set!)
 			 ,cont
-- 
2.25.1