From 8fcd32462628eaf7c4b106a308e5ba13a6cf2d90 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 10 Jun 1993 18:07:39 +0000
Subject: [PATCH] Fix renamed variables.

---
 v7/src/compiler/machines/C/lapgen.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)
-- 
2.25.1