From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 Jun 1987 03:31:43 +0000 (+0000)
Subject: Fix bugs in last revision.
X-Git-Tag: 20090517-FFI~13336
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=da90fb0bc783f8b1a82ac567be7a5ee877d85206;p=mit-scheme.git

Fix bugs in last revision.
---

diff --git a/v7/src/compiler/rtlgen/rgproc.scm b/v7/src/compiler/rtlgen/rgproc.scm
index 7a9eb445f..940b8759e 100644
--- a/v7/src/compiler/rtlgen/rgproc.scm
+++ b/v7/src/compiler/rtlgen/rgproc.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgproc.scm,v 1.4 1987/06/23 02:17:02 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgproc.scm,v 1.5 1987/06/23 03:31:43 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -65,8 +65,8 @@ MIT in each case. |#
 		 (scfg*scfg->scfg!
 		  prefix
 		  (rtl:make-interpreter-call:set!
-		   register:environment
-		   (intern-scode-variable! block name)
+		   (rtl:make-fetch register:environment)
+		   (intern-scode-variable! block (variable-name name))
 		   expression))))))
 	 (procedure-names procedure)
 	 (procedure-values procedure)))))