From fbbeae136d216a4272e0db9027c931cbf6e79acf Mon Sep 17 00:00:00 2001 From: Mark Friedman Date: Wed, 26 Oct 1988 12:33:00 +0000 Subject: [PATCH] Merged 4.9 with 4.8.1.2. --- v7/src/compiler/rtlgen/rtlgen.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/v7/src/compiler/rtlgen/rtlgen.scm b/v7/src/compiler/rtlgen/rtlgen.scm index ae25fb675..3ef2e8461 100644 --- a/v7/src/compiler/rtlgen/rtlgen.scm +++ b/v7/src/compiler/rtlgen/rtlgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rtlgen.scm,v 4.9 1988/10/20 17:59:30 markf Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rtlgen.scm,v 4.10 1988/10/26 12:33:00 markf Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -164,8 +164,7 @@ MIT in each case. |# (if (ic-block? block) (rtl:make-pop register:environment) (make-null-cfg)) - (if (and (not (continuation/always-known-operator? continuation)) - (block/dynamic-link? block)) + (if (block/dynamic-link? block) (rtl:make-pop-link) (make-null-cfg))))) -- 2.25.1