From cf5c77c3e1203c69a4c315148153eac5b9246c1e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 7 Nov 1988 14:33:30 +0000
Subject: [PATCH] Fix unbound variable bug.  Delete unused variable.

---
 v7/src/compiler/back/regmap.scm | 36 ++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 19 deletions(-)

diff --git a/v7/src/compiler/back/regmap.scm b/v7/src/compiler/back/regmap.scm
index 0ba4783d1..0a4d55055 100644
--- a/v7/src/compiler/back/regmap.scm
+++ b/v7/src/compiler/back/regmap.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/regmap.scm,v 4.6 1988/11/07 13:54:44 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/regmap.scm,v 4.7 1988/11/07 14:33:30 cph Rel $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -584,8 +584,7 @@ for REGISTER.  If no such register exists, returns #F."
     (lambda (input-entries shared-entries output-entries)
       (input-loop input-entries
 		  (shared-loop shared-entries
-			       (output-loop (empty-register-map)
-					    output-entries))))))
+			       (output-loop output-entries))))))
 
 (define-export (clear-map-instructions input-map)
   input-map
@@ -616,21 +615,20 @@ for REGISTER.  If no such register exists, returns #F."
 						    (car output-aliases))
 		     ,@(aliases-loop (cdr output-aliases)))))))))
 
-(define (output-loop map entries)
-  (let entries-loop ((entries entries))
-    (if (null? entries)
-	'()
-	(let ((home (map-entry-home (car entries))))
-	  (if home
-	      (let ((aliases (map-entry-aliases (car entries))))
-		(LAP ,@(home->register-transfer home (car aliases))
-		     ,@(let registers-loop ((registers (cdr aliases)))
-			 (if (null? registers)
-			     (entries-loop (cdr entries))
-			     (LAP ,@(register->register-transfer
-				     (car aliases)
-				     (car registers))
-				  ,@(loop (cdr registers)))))))
-	      (entries-loop (cdr entries)))))))
+(define (output-loop entries)
+  (if (null? entries)
+      '()
+      (let ((home (map-entry-home (car entries))))
+	(if home
+	    (let ((aliases (map-entry-aliases (car entries))))
+	      (LAP ,@(home->register-transfer home (car aliases))
+		   ,@(let registers-loop ((registers (cdr aliases)))
+		       (if (null? registers)
+			   (output-loop (cdr entries))
+			   (LAP ,@(register->register-transfer
+				   (car aliases)
+				   (car registers))
+				,@(registers-loop (cdr registers)))))))
+	    (output-loop (cdr entries))))))
 
 )
\ No newline at end of file
-- 
2.25.1