(rcd): Fix case where there is no error continuation. Allow

specification of continuation without filename.

diff --git a/v7/src/compiler/etc/stackp.scm b/v7/src/compiler/etc/stackp.scm
index b8ce9534865fe30bdfc5c9818aa08ad4e2f1f7a2..1dd301c3a25b868125f1849deb7f4ff42bc898fd 100644 (file)
--- 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.3 1988/10/27 07:07:27 cph Exp $
+$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 $
 
 Copyright (c) 1987, 1988 Massachusetts Institute of Technology
 
@@ -41,9 +41,10 @@ MIT in each case. |#
         (lambda ()
           (write-continuation
            (if (default-object? continuation)
-               (error-continuation)
+               (or (error-continuation)
+                   (current-proceed-continuation))
                continuation)))))
-    (if (default-object? filename)
+    (if (or (default-object? filename) (not filename))
        (do-it)
        (with-output-to-file filename do-it))))
 
@@ -62,7 +63,7 @@ MIT in each case. |#
               (newline)
               (write n)
               (write-string "\t")
-              (let ((string (write-to-string (stream-car stream) 60)))
+              (let ((string (write-to-string (stream-car stream) 68)))
                 (write-string (cdr string))
                 (if (car string)
                     (write-string "...")))

diff --git a/v8/src/compiler/etc/stackp.scm b/v8/src/compiler/etc/stackp.scm
index 7e9cf6f9a4251689f31131ff28011cc8ea55b357..4d5f00217d54e2eccf63c31ba3599fb3dbeb282a 100644 (file)
--- 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.3 1988/10/27 07:07:27 cph Exp $
+$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 $
 
 Copyright (c) 1987, 1988 Massachusetts Institute of Technology
 
@@ -41,9 +41,10 @@ MIT in each case. |#
         (lambda ()
           (write-continuation
            (if (default-object? continuation)
-               (error-continuation)
+               (or (error-continuation)
+                   (current-proceed-continuation))
                continuation)))))
-    (if (default-object? filename)
+    (if (or (default-object? filename) (not filename))
        (do-it)
        (with-output-to-file filename do-it))))
 
@@ -62,7 +63,7 @@ MIT in each case. |#
               (newline)
               (write n)
               (write-string "\t")
-              (let ((string (write-to-string (stream-car stream) 60)))
+              (let ((string (write-to-string (stream-car stream) 68)))
                 (write-string (cdr string))
                 (if (car string)
                     (write-string "...")))