From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 1 Dec 1992 22:07:38 +0000 (+0000)
Subject: Fix unbound variable.
X-Git-Tag: 20090517-FFI~8687
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=36490171b61bf75aeccfb68b2786afea2e48b4db;p=mit-scheme.git

Fix unbound variable.
---

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