Test to determine if a continuation is direct linked must be more

sophisticated now that RTL generator is direct linking more kinds of
continuations.

diff --git a/v7/src/compiler/fgopt/conect.scm b/v7/src/compiler/fgopt/conect.scm
index d3622853df6866b0b15d74aa885cb2ff76bca397..160e55b11a5971be90944be4a54df931278ec307 100644 (file)
--- a/v7/src/compiler/fgopt/conect.scm
+++ b/v7/src/compiler/fgopt/conect.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fgopt/conect.scm,v 4.2 1988/08/18 01:35:41 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fgopt/conect.scm,v 4.3 1988/08/18 03:28:41 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -48,7 +48,11 @@ MIT in each case. |#
 
 (define (procedure-direct-linked? procedure)
   (if (procedure-continuation? procedure)
-      (continuation/ever-known-operator? procedure)
+      (and (continuation/ever-known-operator? procedure)
+          (there-exists? (continuation/combinations procedure)
+            (lambda (combination)
+              (and (combination/inline? combination)
+                   (combination/continuation-push combination)))))
       (procedure-inline-code? procedure)))
 
 (define (walk-node node color)