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 9ca4cf5da64e53174d731bd2f2c1447ea9f7cd38..0169be1d16fea648cd9937b2a0b5d8fea7186c0b 100644 (file)
--- 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))