From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 13 Nov 1993 06:44:04 +0000 (+0000)
Subject: Fix variable name conflict when using dynamic links.
X-Git-Tag: 20090517-FFI~7512
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ef185a9c24a5df61a19d2656fbb06693593d3aa1;p=mit-scheme.git

Fix variable name conflict when using dynamic links.
---

diff --git a/v7/src/compiler/machines/C/rules3.scm b/v7/src/compiler/machines/C/rules3.scm
index 5601a668f..5f179bc75 100644
--- a/v7/src/compiler/machines/C/rules3.scm
+++ b/v7/src/compiler/machines/C/rules3.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rules3.scm,v 1.7 1993/10/31 04:08:27 gjr Exp $
+$Id: rules3.scm,v 1.8 1993/11/13 06:44:04 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -264,10 +264,10 @@ MIT in each case. |#
 				  (REGISTER (? choice-2)))
   (let ((choice-1 (standard-source! choice-1 'SCHEME_OBJECT*))
 	(choice-2 (standard-source! choice-2 'SCHEME_OBJECT*)))
-    (LAP "{\n\t  SCHEME_OBJECT * new_frame;\n\t"
-	 "  new_frame = ((" ,choice-1 " <= " ,choice-2 ") ? "
+    (LAP "{\n\t  SCHEME_OBJECT * new_frame_1;\n\t"
+	 "  new_frame_1 = ((" ,choice-1 " <= " ,choice-2 ") ? "
 	 ,choice-1 " : " ,choice-2 ");\n\t"
-	 ,@(move-frame-up frame-size "new_frame" "  ")
+	 ,@(move-frame-up frame-size "new_frame_1" "  ")
 	 "}\n\t")))
 
 ;;; Entry point types