From 4c2c2bedd6169b7f1bf299323c11529d8d5d4d9b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 29 Aug 1988 23:16:12 +0000 Subject: [PATCH] Fix stupid bug involving missing call to `scfg*scfg->scfg!'. --- v7/src/compiler/rtlgen/rtlgen.scm | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/v7/src/compiler/rtlgen/rtlgen.scm b/v7/src/compiler/rtlgen/rtlgen.scm index ad6f9232c..cf614f619 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.7 1988/08/18 01:46:45 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rtlgen.scm,v 4.8 1988/08/29 23:16:12 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -152,13 +152,14 @@ MIT in each case. |# (define (generate/continuation-entry/pop-extra continuation) (let ((block (continuation/closing-block continuation))) - (if (ic-block? block) - (rtl:make-pop register:environment) - (make-null-cfg)) - (if (and (not (continuation/always-known-operator? continuation)) - (block/dynamic-link? block)) - (rtl:make-pop-link) - (make-null-cfg)))) + (scfg*scfg->scfg! + (if (ic-block? block) + (rtl:make-pop register:environment) + (make-null-cfg)) + (if (and (not (continuation/always-known-operator? continuation)) + (block/dynamic-link? block)) + (rtl:make-pop-link) + (make-null-cfg))))) (define (generate/node node) (let ((memoization (cfg-node-get node memoization-tag))) -- 2.25.1