From 29161fb59b5494a52542812403857ecfcd4f0701 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Wed, 17 Nov 1993 05:31:12 +0000
Subject: [PATCH] Fix unbound variable problem introduced in the last edit.

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

diff --git a/v7/src/compiler/machines/C/rules1.scm b/v7/src/compiler/machines/C/rules1.scm
index 9ca4cf5da..0169be1d1 100644
--- a/v7/src/compiler/machines/C/rules1.scm
+++ b/v7/src/compiler/machines/C/rules1.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rules1.scm,v 1.6 1993/11/17 05:22:39 gjr Exp $
+$Id: rules1.scm,v 1.7 1993/11/17 05:31:12 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -169,7 +169,7 @@ MIT in each case. |#
   (standard-unary-conversion
    source 'LONG target 'ULONG
    (lambda (source target)
-     (LAP ,target " = ((unsigned long) (" ,base " + " ,offset "));\n\t"))))
+     (LAP ,target " = ((unsigned long) (" ,source " + " ,offset "));\n\t"))))
 
 (define-rule statement
   (ASSIGN (REGISTER (? target))
-- 
2.25.1