From ef185a9c24a5df61a19d2656fbb06693593d3aa1 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sat, 13 Nov 1993 06:44:04 +0000 Subject: [PATCH] Fix variable name conflict when using dynamic links. --- v7/src/compiler/machines/C/rules3.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 -- 2.25.1