Fix stupid bug involving missing call to `scfg*scfg->scfg!'.
authorChris Hanson <org/chris-hanson/cph>
Mon, 29 Aug 1988 23:16:12 +0000 (23:16 +0000)
committerChris Hanson <org/chris-hanson/cph>
Mon, 29 Aug 1988 23:16:12 +0000 (23:16 +0000)
v7/src/compiler/rtlgen/rtlgen.scm

index ad6f9232c46ee5d38d04c8278a631e9200763b7a..cf614f619a8e1e0677840829a804a8b075f8b8b5 100644 (file)
@@ -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)))))
 \f
 (define (generate/node node)
   (let ((memoization (cfg-node-get node memoization-tag)))