From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 17 Nov 1993 05:31:12 +0000 (+0000)
Subject: Fix unbound variable problem introduced in the last edit.
X-Git-Tag: 20090517-FFI~7491
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=29161fb59b5494a52542812403857ecfcd4f0701;p=mit-scheme.git

Fix unbound variable problem introduced in the last edit.
---

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