#| -*-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
(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)))))
\f
(define (generate/node node)
(let ((memoization (cfg-node-get node memoization-tag)))