From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 26 Jul 1987 22:06:03 +0000 (+0000)
Subject: Undo last change, it loses by attempting to close procedures in wrong
X-Git-Tag: 20090517-FFI~13216
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9c529ed830533d1e78490780fdf8fdb6a9175d1c;p=mit-scheme.git

Undo last change, it loses by attempting to close procedures in wrong
place.
---

diff --git a/v7/src/compiler/rtlgen/rgrval.scm b/v7/src/compiler/rtlgen/rgrval.scm
index 082f35a2b..49d72274c 100644
--- a/v7/src/compiler/rtlgen/rgrval.scm
+++ b/v7/src/compiler/rtlgen/rgrval.scm
@@ -1,9 +1,9 @@
 d3 1
 a4 1
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgrval.scm,v 1.12 1987/07/24 21:08:01 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgrval.scm,v 1.13 1987/07/26 22:06:03 cph Exp $
 #| -*-Scheme-*-
 Copyright (c) 1987 Massachusetts Institute of Technology
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgrval.scm,v 1.12 1987/07/24 21:08:01 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgrval.scm,v 1.13 1987/07/26 22:06:03 cph Exp $
 
 Copyright (c) 1988, 1990 Massachusetts Institute of Technology
 
@@ -67,8 +67,8 @@ promotional, or sales literature without prior written consent from
 
 (define-rvalue-generator reference-tag
   (lambda (reference)
-    (if (vnode-known? (reference-variable reference))
-	(generate/rvalue (vnode-known-value (reference-variable reference)))
+    (if (vnode-known-constant? (reference-variable reference))
+	(generate/constant (vnode-known-value (reference-variable reference)))
 	(find-variable (reference-block reference)
 		       (reference-variable reference)
 	  (lambda (locative)
@@ -122,8 +122,8 @@ promotional, or sales literature without prior written consent from
 			      (hooks-union (scfg-next-hooks n3)
 (define-rvalue-generator temporary-tag
   (lambda (temporary)
-    (if (vnode-known? temporary)
-	(generate/rvalue (vnode-known-value temporary))
+    (if (vnode-known-constant? temporary)
+	(generate/constant (vnode-known-value temporary))
 	(expression-value/simple (rtl:make-fetch temporary)))))
 
 (define-rvalue-generator access-tag