From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 31 Dec 1988 06:41:50 +0000 (+0000)
Subject: Adjust for changes in continuation parser code.
X-Git-Tag: 20090517-FFI~12304
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=67c6be80c2e18153d96922d91bc019331c4ac4cb;p=mit-scheme.git

Adjust for changes in continuation parser code.
---

diff --git a/v7/src/compiler/etc/stackp.scm b/v7/src/compiler/etc/stackp.scm
index 1dd301c3a..82dd97660 100644
--- a/v7/src/compiler/etc/stackp.scm
+++ b/v7/src/compiler/etc/stackp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/etc/stackp.scm,v 1.4 1988/11/08 07:21:50 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/etc/stackp.scm,v 1.5 1988/12/31 06:41:50 cph Rel $
 
 Copyright (c) 1987, 1988 Massachusetts Institute of Technology
 
@@ -58,7 +58,9 @@ MIT in each case. |#
   (let write-stack-stream
       ((stream (continuation->stream continuation)) (n 0))
     (if (not (stream-null? stream))
-	(begin (if (return-address? (stream-car stream))
+	(begin (if (let ((object (stream-car stream)))
+		     (or (return-address? object)
+			 (compiled-return-address? object)))
 		   (newline))
 	       (newline)
 	       (write n)
@@ -75,12 +77,11 @@ MIT in each case. |#
 
 (define (continuation->stream continuation)
   (let stack-frame->stream ((frame (continuation->stack-frame continuation)))
-    (cons-stream (stack-frame/return-address frame)
-		 (let ((length (stack-frame/length frame)))
-		   (let loop ((n 0))
-		     (if (< n length)
-			 (cons-stream (stack-frame/ref frame n) (loop (1+ n)))
-			 (let ((next (stack-frame/next frame)))
-			   (if next
-			       (stack-frame->stream next)
-			       (stream)))))))))
\ No newline at end of file
+    (let ((length (stack-frame/length frame)))
+      (let loop ((n 0))
+	(if (< n length)
+	    (cons-stream (stack-frame/ref frame n) (loop (1+ n)))
+	    (let ((next (stack-frame/next frame)))
+	      (if next
+		  (stack-frame->stream next)
+		  (stream))))))))
\ No newline at end of file
diff --git a/v8/src/compiler/etc/stackp.scm b/v8/src/compiler/etc/stackp.scm
index 4d5f00217..3a0cda8d0 100644
--- a/v8/src/compiler/etc/stackp.scm
+++ b/v8/src/compiler/etc/stackp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/compiler/etc/stackp.scm,v 1.4 1988/11/08 07:21:50 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/compiler/etc/stackp.scm,v 1.5 1988/12/31 06:41:50 cph Rel $
 
 Copyright (c) 1987, 1988 Massachusetts Institute of Technology
 
@@ -58,7 +58,9 @@ MIT in each case. |#
   (let write-stack-stream
       ((stream (continuation->stream continuation)) (n 0))
     (if (not (stream-null? stream))
-	(begin (if (return-address? (stream-car stream))
+	(begin (if (let ((object (stream-car stream)))
+		     (or (return-address? object)
+			 (compiled-return-address? object)))
 		   (newline))
 	       (newline)
 	       (write n)
@@ -75,12 +77,11 @@ MIT in each case. |#
 
 (define (continuation->stream continuation)
   (let stack-frame->stream ((frame (continuation->stack-frame continuation)))
-    (cons-stream (stack-frame/return-address frame)
-		 (let ((length (stack-frame/length frame)))
-		   (let loop ((n 0))
-		     (if (< n length)
-			 (cons-stream (stack-frame/ref frame n) (loop (1+ n)))
-			 (let ((next (stack-frame/next frame)))
-			   (if next
-			       (stack-frame->stream next)
-			       (stream)))))))))
\ No newline at end of file
+    (let ((length (stack-frame/length frame)))
+      (let loop ((n 0))
+	(if (< n length)
+	    (cons-stream (stack-frame/ref frame n) (loop (1+ n)))
+	    (let ((next (stack-frame/next frame)))
+	      (if next
+		  (stack-frame->stream next)
+		  (stream))))))))
\ No newline at end of file