From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 10 Jun 1993 18:07:39 +0000 (+0000)
Subject: Fix renamed variables.
X-Git-Tag: 20090517-FFI~8336
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8fcd32462628eaf7c4b106a308e5ba13a6cf2d90;p=mit-scheme.git

Fix renamed variables.
---

diff --git a/v7/src/compiler/machines/C/lapgen.scm b/v7/src/compiler/machines/C/lapgen.scm
index 1b92cc25b..100733987 100644
--- a/v7/src/compiler/machines/C/lapgen.scm
+++ b/v7/src/compiler/machines/C/lapgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: lapgen.scm,v 1.3 1993/06/10 18:05:38 gjr Exp $
+$Id: lapgen.scm,v 1.4 1993/06/10 18:07:39 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -545,7 +545,7 @@ MIT in each case. |#
 	(else
 	 (error "unable to determine register type" reg))))
 
-(define (register-types-compatible? x y)
+(define (register-types-compatible? type1 type2)
   (boolean=? (eq? type1 'FLOAT) (eq? type2 'FLOAT)))
 
 (define (register-reference num)