Fix bugs in last revision.

diff --git a/v7/src/compiler/rtlgen/rgproc.scm b/v7/src/compiler/rtlgen/rgproc.scm
index 7a9eb445fbd39b932fea8dee1226c2a37216c0e4..940b8759ed5cfff52f53ffc46b4d967db0d8e2c3 100644 (file)
--- 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)))))