From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 12 Dec 1988 21:51:21 +0000 (+0000)
Subject: Delete popping-limit stuff from continuations.  Also delete
X-Git-Tag: 20090517-FFI~12386
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=42ac69561ffcc06ac76d858691d235be47e64ea9;p=mit-scheme.git

Delete popping-limit stuff from continuations.  Also delete
`reduction-continuation/block' which was never used.
---

diff --git a/v7/src/compiler/base/contin.scm b/v7/src/compiler/base/contin.scm
index 4328f39c2..333494b88 100644
--- a/v7/src/compiler/base/contin.scm
+++ b/v7/src/compiler/base/contin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/contin.scm,v 4.5 1988/10/13 10:34:10 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/contin.scm,v 4.6 1988/12/12 21:51:21 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -48,12 +48,7 @@ MIT in each case. |#
 		      (snode->scfg (make-fg-noop))))))
 
 (define-enumeration continuation-type
-  (effect
-   predicate
-   procedure
-   push
-   register
-   value))
+  (effect predicate procedure push register value))
 
 (define-integrable (procedure-continuation? procedure)
   (not (eq? (procedure-type procedure) continuation-type/procedure)))
@@ -79,7 +74,7 @@ MIT in each case. |#
 (define-integrable set-continuation/offset! set-procedure-closure-offset!)
 (define-integrable continuation/passed-out? procedure-passed-out?)
 (define-integrable set-continuation/passed-out?! set-procedure-passed-out?!)
-
+
 (define (continuation/register continuation)
   (or (procedure-register continuation)
       (let ((register (rtl:make-pseudo-register)))
@@ -94,18 +89,8 @@ MIT in each case. |#
 
 (define-integrable return-operator/subproblem? rvalue/procedure?)
 (define-integrable return-operator/reduction? rvalue/reference?)
-
-(define-integrable reduction-continuation/block reference-block)
 (define-integrable reduction-continuation/lvalue reference-lvalue)
 
-(define-integrable (reduction-continuation/popping-limit continuation)
-  (variable-popping-limit (reference-lvalue continuation)))
-
-(define (return-operator/popping-limit operator)
-  (if (return-operator/reduction? operator)
-      (reduction-continuation/popping-limit operator)
-      (continuation/closing-block operator)))
-
 (define (continuation/frame-size continuation)
   (let ((closing-block (continuation/closing-block continuation)))
     (+ (if (ic-block? closing-block) 1 0)