From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 Jun 1987 02:15:57 +0000 (+0000)
Subject: Generator for `assignment' statement was using `definition-rvalue'
X-Git-Tag: 20090517-FFI~13339
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4731bfb3521bec75a2e0a9143c3804adc44f5150;p=mit-scheme.git

Generator for `assignment' statement was using `definition-rvalue'
instead of `assignment-rvalue' (an editing oversight).
---

diff --git a/v7/src/compiler/rtlgen/rgstmt.scm b/v7/src/compiler/rtlgen/rgstmt.scm
index 7622982ca..5f2a47dd9 100644
--- a/v7/src/compiler/rtlgen/rgstmt.scm
+++ b/v7/src/compiler/rtlgen/rgstmt.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgstmt.scm,v 1.7 1987/06/13 02:57:08 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgstmt.scm,v 1.8 1987/06/23 02:15:57 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -55,7 +55,7 @@ MIT in each case. |#
       (if (and (integrated-vnode? lvalue)
 	       (not (value-register? lvalue)))
 	  (make-null-cfg)
-	  (transmit-values (generate/rvalue (definition-rvalue node))
+	  (transmit-values (generate/rvalue (assignment-rvalue node))
 	    (lambda (prefix expression)
 	      (scfg*scfg->scfg!
 	       prefix