From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 20 Jan 1995 22:23:42 +0000 (+0000)
Subject: Changed CONTINUATION-VARIABLE? to REFERENCED-CONTINUATION-VARIABLE? in
X-Git-Tag: 20090517-FFI~6714
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3477c273cfc0daab07c6eaadf553814a1d5a0956;p=mit-scheme.git

Changed CONTINUATION-VARIABLE? to REFERENCED-CONTINUATION-VARIABLE? in
stackopt/constrain because it was complaining about the position of an
IGNORED-CONTINUATION-VARIABLE that was passed on the stack.
---

diff --git a/v8/src/compiler/midend/stackopt.scm b/v8/src/compiler/midend/stackopt.scm
index ccfbb998f..3da2f2e60 100644
--- a/v8/src/compiler/midend/stackopt.scm
+++ b/v8/src/compiler/midend/stackopt.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: stackopt.scm,v 1.3 1994/11/25 17:08:10 jmiller Exp $
+$Id: stackopt.scm,v 1.4 1995/01/20 22:23:42 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -800,7 +800,7 @@ End of Big Note A |#
 				  (list common (iota sup-index)))
 				common))
 		    (lambda (pair)
-		      (continuation-variable? (car pair)))))
+		      (referenced-continuation-variable? (car pair)))))
     (lambda (cont-variables rest)
       ;; At least the continuation variable must be shared if there are
       ;; any children frames, and the continuation must be in slot 0.
@@ -808,8 +808,8 @@ End of Big Note A |#
 	     ;; This is no longer true.  A better test would be that the
 	     ;; continuation variables must be shared across non-leaf models
 	     ;; (if (not (null? (stackopt/model/children model)))
-	     ;; 	(internal-error "No continuation variables shared"
-	     ;;			model common))
+	     ;;     (internal-error "No continuation variables shared"
+	     ;;                     model common))
 	     (stackopt/constrain* rest))
 	    ((not (null? (cdr cont-variables)))
 	     (internal-error "Too many continuation variables"