Eliminate CALL-WITH-PROTECTED-CONTINUATION.

diff --git a/v7/src/edwin/editor.scm b/v7/src/edwin/editor.scm
index 1c6ed9cbd01a4569039369a5fe28faefd718909b..f4106c346a8cbdfd970dc803531e00c96c4fbf6f 100644 (file)
--- a/v7/src/edwin/editor.scm
+++ b/v7/src/edwin/editor.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: editor.scm,v 1.240 1995/01/06 17:47:23 cph Exp $
+;;;    $Id: editor.scm,v 1.241 1996/05/11 08:37:35 cph Exp $
 ;;;
-;;;    Copyright (c) 1986, 1989-95 Massachusetts Institute of Technology
+;;;    Copyright (c) 1986, 1989-96 Massachusetts Institute of Technology
 ;;;
 ;;;    This material was developed by the Scheme project at the
 ;;;    Massachusetts Institute of Technology, Department of
@@ -425,9 +425,6 @@ This does not affect editor errors or evaluation errors."
 (define (exit-scheme)
   (within-continuation editor-abort %exit))
 
-(define call-with-protected-continuation
-  call-with-current-continuation)
-
 (define (unwind-protect setup body cleanup)
   (dynamic-wind (or setup (lambda () unspecific)) body cleanup))
 

diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm
index 6721c089c1d945444c4f02cc249ecc4aa17d9e48..9f0cb49147f2bff295d89fac539f6a3513f1ed90 100644 (file)
--- a/v7/src/edwin/fileio.scm
+++ b/v7/src/edwin/fileio.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: fileio.scm,v 1.136 1996/05/04 17:37:30 cph Exp $
+;;;    $Id: fileio.scm,v 1.137 1996/05/11 08:37:57 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-96 Massachusetts Institute of Technology
 ;;;
@@ -366,7 +366,7 @@ after you find a file.  If you explicitly request such a scan with
                                     set-buffer-major-mode!
                                     enable-buffer-minor-mode!)
                                 buffer mode)))
-                         (call-with-protected-continuation
+                         (call-with-current-continuation
                           (lambda (continuation)
                             (bind-condition-handler
                                 (list condition-type:error)

diff --git a/v7/src/edwin/shell.scm b/v7/src/edwin/shell.scm
index 5afcc633f96b495b63cbc89f3b14db5f29889385..7b9442ad6c5d6895f36e50d299da264fece01d37 100644 (file)
--- a/v7/src/edwin/shell.scm
+++ b/v7/src/edwin/shell.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: shell.scm,v 1.12 1995/01/06 01:14:58 cph Exp $
+$Id: shell.scm,v 1.13 1996/05/11 08:36:59 cph Exp $
 
-Copyright (c) 1991-95 Massachusetts Institute of Technology
+Copyright (c) 1991-96 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -240,7 +240,7 @@ Otherwise, one argument `-i' is passed to the shell."
        (string->number string)))
 \f
 (define (shell-process-cd filename)
-  (call-with-protected-continuation
+  (call-with-current-continuation
    (lambda (continuation)
      (bind-condition-handler (list condition-type:editor-error)
         (lambda (condition)

diff --git a/v7/src/edwin/utils.scm b/v7/src/edwin/utils.scm
index 87efeb418d919160537f1b9298c6d32e5d720157..b4f8caa44313ef125c62b71c79d35c1d067b2c6c 100644 (file)
--- a/v7/src/edwin/utils.scm
+++ b/v7/src/edwin/utils.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: utils.scm,v 1.39 1996/04/24 02:38:19 cph Exp $
+;;;    $Id: utils.scm,v 1.40 1996/05/11 08:38:11 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-96 Massachusetts Institute of Technology
 ;;;
@@ -337,7 +337,7 @@
                                         (decoded-time/year dt))))))))
 
 (define (catch-file-errors if-error thunk)
-  (call-with-protected-continuation
+  (call-with-current-continuation
    (lambda (continuation)
      (bind-condition-handler (list condition-type:file-error
                                   condition-type:port-error)