Now that continuations have their `continuation/combinations' field

correctly initialized, there is no need to do it here.  Additionally,
repackage this code.

diff --git a/v7/src/compiler/fgopt/operan.scm b/v7/src/compiler/fgopt/operan.scm
index 71c4e15bb37d8e65d64302b74c10836c1901019a..a222ce5a59fba377a17b01afa2f7bc0b3fd55c7f 100644 (file)
--- a/v7/src/compiler/fgopt/operan.scm
+++ b/v7/src/compiler/fgopt/operan.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fgopt/operan.scm,v 4.4 1988/10/24 22:18:41 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fgopt/operan.scm,v 4.5 1989/04/17 17:07:19 cph Exp $
 
-Copyright (c) 1987 Massachusetts Institute of Technology
+Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -36,13 +36,7 @@ MIT in each case. |#
 
 (declare (usual-integrations))
 \f
-(package (operator-analysis)
-
-(define-export (operator-analysis procedures applications)
-  (for-each (lambda (procedure)
-             (if (procedure-continuation? procedure)
-                 (set-continuation/combinations! procedure '())))
-           procedures)
+(define (operator-analysis procedures applications)
   (for-each (lambda (application)
              (if (eq? (application-type application) 'COMBINATION)
                  (analyze/combination application)))
@@ -68,7 +62,7 @@ MIT in each case. |#
               (cons combination
                     (continuation/combinations continuation))))
            (rvalue-values (combination/continuation combination))))
-\f
+
 (define (continuation-passed-out? continuation)
   (there-exists? (continuation/combinations continuation)
     (lambda (combination)
@@ -109,7 +103,4 @@ MIT in each case. |#
              (for-all? combinations
                (lambda (combination)
                  (eq? (rvalue-known-value (combination/operator combination))
-                      procedure)))))))
-
-;;; end OPERATOR-ANALYSIS
-)
\ No newline at end of file
+                      procedure)))))))
\ No newline at end of file