From 36490171b61bf75aeccfb68b2786afea2e48b4db Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 1 Dec 1992 22:07:38 +0000
Subject: [PATCH] Fix unbound variable.

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

diff --git a/v7/src/compiler/machines/alpha/rulfix.scm b/v7/src/compiler/machines/alpha/rulfix.scm
index 33b6c55fe..fd877342a 100644
--- a/v7/src/compiler/machines/alpha/rulfix.scm
+++ b/v7/src/compiler/machines/alpha/rulfix.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rulfix.scm,v 1.1 1992/08/29 13:51:33 jinx Exp $
+$Id: rulfix.scm,v 1.2 1992/12/01 22:07:38 gjr Exp $
 
 Copyright (c) 1992 Digital Equipment Corporation (D.E.C.)
 
@@ -349,7 +349,7 @@ case.
       (handler src tgt)
       (let ((temp (standard-temporary!)))
 	(LAP (COPY ,src ,temp)
-	     ,@(handler tmp tgt)))))
+	     ,@(handler temp tgt)))))
 
 (define-arithmetic-method 'FIXNUM-LSH fixnum-methods/2-args
   (lambda (tgt value shift-amount overflow?)
-- 
2.25.1