From 9c529ed830533d1e78490780fdf8fdb6a9175d1c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 26 Jul 1987 22:06:03 +0000 Subject: [PATCH] Undo last change, it loses by attempting to close procedures in wrong place. --- v7/src/compiler/rtlgen/rgrval.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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 -- 2.25.1