From 26209899f0a24f39c003c76e6ed19967f24b3f64 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 17 Apr 1989 17:07:19 +0000 Subject: [PATCH] Now that continuations have their `continuation/combinations' field correctly initialized, there is no need to do it here. Additionally, repackage this code. --- v7/src/compiler/fgopt/operan.scm | 19 +++++-------------- 1 file changed, 5 insertions(+), 14 deletions(-) diff --git a/v7/src/compiler/fgopt/operan.scm b/v7/src/compiler/fgopt/operan.scm index 71c4e15bb..a222ce5a5 100644 --- 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)) -(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)))) - + (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 -- 2.25.1