From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 22 Jun 1995 15:20:40 +0000 (+0000)
Subject: Fixed small omission in last change.
X-Git-Tag: 20090517-FFI~6246
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0bb8b38e04a5d0e27da4ac33773db2a5c2a22df7;p=mit-scheme.git

Fixed small omission in last change.
---

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