Remove ERROR-OUTPUT-PORT.

diff --git a/v7/src/runtime/error.scm b/v7/src/runtime/error.scm
index a2ee89f7e3184ca2a7293bc72d44bfd675a93675..fb5129369a2ce6e9d5c65fd1a1d7b9961813ea25 100644 (file)
--- a/v7/src/runtime/error.scm
+++ b/v7/src/runtime/error.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: error.scm,v 14.36 1993/10/21 11:49:42 cph Exp $
+$Id: error.scm,v 14.37 1993/10/21 12:14:16 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -544,7 +544,7 @@ MIT in each case. |#
     (if hook
        (fluid-let ((standard-warning-hook false))
          (hook condition))
-       (let ((port (error-output-port)))
+       (let ((port (notification-output-port)))
          (fresh-line port)
          (write-string ";Warning: " port)
          (write-condition-report condition port)))))

diff --git a/v7/src/runtime/port.scm b/v7/src/runtime/port.scm
index cbaf35198df7d9fe883ca6ec951085be90943c8a..6afb9dd1790ce81da864b028e80119d3e869c72f 100644 (file)
--- a/v7/src/runtime/port.scm
+++ b/v7/src/runtime/port.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: port.scm,v 1.5 1993/10/21 11:49:49 cph Exp $
+$Id: port.scm,v 1.6 1993/10/21 12:14:18 cph Exp $
 
 Copyright (c) 1991-93 Massachusetts Institute of Technology
 
@@ -488,7 +488,6 @@ MIT in each case. |#
 
 (define *current-input-port*)
 (define *current-output-port*)
-(define *error-output-port* #f)
 (define *notification-output-port* #f)
 (define *trace-output-port* #f)
 (define *interaction-i/o-port* #f)
@@ -515,17 +514,6 @@ MIT in each case. |#
   (fluid-let ((*current-output-port* (guarantee-output-port port)))
     (thunk)))
 
-(define (error-output-port)
-  (or *error-output-port* (nearest-cmdl/port)))
-
-(define (set-error-output-port! port)
-  (set! *error-output-port* (guarantee-output-port port))
-  unspecific)
-
-(define (with-error-output-port port thunk)
-  (fluid-let ((*error-output-port* (guarantee-output-port port)))
-    (thunk)))
-
 (define (notification-output-port)
   (or *notification-output-port* (nearest-cmdl/port)))
 

diff --git a/v7/src/runtime/rep.scm b/v7/src/runtime/rep.scm
index 35748907add328d082c85dda873307309140137f..edc6b37d3fa8cc38d5c917ad9be41fae482114d8 100644 (file)
--- a/v7/src/runtime/rep.scm
+++ b/v7/src/runtime/rep.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rep.scm,v 14.41 1993/10/21 11:57:46 cph Exp $
+$Id: rep.scm,v 14.42 1993/10/21 12:14:18 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -143,7 +143,6 @@ MIT in each case. |#
                          *default-pathname-defaults*)
                         (*current-input-port* port)
                         (*current-output-port* port)
-                        (*error-output-port* port)
                         (*notification-output-port* port)
                         (*trace-output-port* port)
                         (*interaction-i/o-port* port))
@@ -475,14 +474,11 @@ MIT in each case. |#
     (cmdl-message/append
      (or message
         (and condition
-             (cmdl-message/active
-              (let ((port (error-output-port)))
-                (lambda (ignore)
-                  ignore
-                  (fluid-let ((*unparser-list-depth-limit* 25)
-                              (*unparser-list-breadth-limit* 100)
-                              (*unparser-string-length-limit* 500))
-                    (write-condition-report condition port)))))))
+             (cmdl-message/strings
+              (fluid-let ((*unparser-list-depth-limit* 25)
+                          (*unparser-list-breadth-limit* 100)
+                          (*unparser-string-length-limit* 500))
+                (condition/report-string condition port)))))
      (and condition
          (cmdl-message/append
           (and (condition/error? condition)
@@ -788,7 +784,7 @@ MIT in each case. |#
   (if (default-object? value)
       (continue)
       (use-value value))
-  (let ((port (error-output-port)))
+  (let ((port (notification-output-port)))
     (fresh-line port)
     (write-string ";Unable to PROCEED" port)))
 \f

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 8595331b354265a6139cf135773c443781e90555..e139bbbeebc0379f4eae9f7a1bcccc5d58c5ca6e 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.207 1993/10/21 11:49:53 cph Exp $
+$Id: runtime.pkg,v 14.208 1993/10/21 12:14:20 cph Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -949,7 +949,6 @@ MIT in each case. |#
          close-port
          current-input-port
          current-output-port
-         error-output-port
          guarantee-i/o-port
          guarantee-input-port
          guarantee-output-port
@@ -1006,7 +1005,6 @@ MIT in each case. |#
          port?
          set-current-input-port!
          set-current-output-port!
-         set-error-output-port!
          set-input-port/state!
          set-interaction-i/o-port!
          set-notification-output-port!
@@ -1014,7 +1012,6 @@ MIT in each case. |#
          set-port/state!
          set-trace-output-port!
          trace-output-port
-         with-error-output-port
          with-input-from-port
          with-interaction-i/o-port
          with-notification-output-port
@@ -1023,7 +1020,6 @@ MIT in each case. |#
   (export (runtime rep)
          *current-input-port*
          *current-output-port*
-         *error-output-port*
          *interaction-i/o-port*
          *notification-output-port*
          *trace-output-port*)

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 8595331b354265a6139cf135773c443781e90555..e139bbbeebc0379f4eae9f7a1bcccc5d58c5ca6e 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.207 1993/10/21 11:49:53 cph Exp $
+$Id: runtime.pkg,v 14.208 1993/10/21 12:14:20 cph Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -949,7 +949,6 @@ MIT in each case. |#
          close-port
          current-input-port
          current-output-port
-         error-output-port
          guarantee-i/o-port
          guarantee-input-port
          guarantee-output-port
@@ -1006,7 +1005,6 @@ MIT in each case. |#
          port?
          set-current-input-port!
          set-current-output-port!
-         set-error-output-port!
          set-input-port/state!
          set-interaction-i/o-port!
          set-notification-output-port!
@@ -1014,7 +1012,6 @@ MIT in each case. |#
          set-port/state!
          set-trace-output-port!
          trace-output-port
-         with-error-output-port
          with-input-from-port
          with-interaction-i/o-port
          with-notification-output-port
@@ -1023,7 +1020,6 @@ MIT in each case. |#
   (export (runtime rep)
          *current-input-port*
          *current-output-port*
-         *error-output-port*
          *interaction-i/o-port*
          *notification-output-port*
          *trace-output-port*)