From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 21 Oct 1993 12:14:20 +0000 (+0000)
Subject: Remove ERROR-OUTPUT-PORT.
X-Git-Tag: 20090517-FFI~7716
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=71ce8f3fa17da1a3d24eb37b718e70d1b7c3c1a1;p=mit-scheme.git

Remove ERROR-OUTPUT-PORT.
---

diff --git a/v7/src/runtime/error.scm b/v7/src/runtime/error.scm
index a2ee89f7e..fb5129369 100644
--- 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 cbaf35198..6afb9dd17 100644
--- 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 35748907a..edc6b37d3 100644
--- 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)))
 
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 8595331b3..e139bbbee 100644
--- 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 8595331b3..e139bbbee 100644
--- 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*)