From e25bf7e97358a29e31c184a0f643f2caa07a4315 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 2 Jan 2003 01:52:39 +0000
Subject: [PATCH] New procedure WRITE-STRINGS-AS-TABLE is used to format the ID
 strings printed by IDENTIFY-WORLD.

---
 v7/src/runtime/runtime.pkg |  3 ++-
 v7/src/runtime/savres.scm  | 21 +++++++++++++--------
 2 files changed, 15 insertions(+), 9 deletions(-)

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 0b459ae8b..37a112689 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.419 2003/01/01 05:38:34 cph Exp $
+$Id: runtime.pkg,v 14.420 2003/01/02 01:52:27 cph Exp $
 
 Copyright (c) 1988,1989,1990,1991,1992 Massachusetts Institute of Technology
 Copyright (c) 1993,1994,1995,1996,1997 Massachusetts Institute of Technology
@@ -1915,6 +1915,7 @@ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 	  write-char
 	  write-line
 	  write-string
+	  write-strings-as-table
 	  write-substring))
 
 (define-package (runtime interrupt-handler)
diff --git a/v7/src/runtime/savres.scm b/v7/src/runtime/savres.scm
index 7d6df039e..91e656dc7 100644
--- a/v7/src/runtime/savres.scm
+++ b/v7/src/runtime/savres.scm
@@ -1,8 +1,10 @@
 #| -*-Scheme-*-
 
-$Id: savres.scm,v 14.36 2002/12/31 04:40:53 cph Exp $
+$Id: savres.scm,v 14.37 2003/01/02 01:52:39 cph Exp $
 
-Copyright (c) 1988-2002 Massachusetts Institute of Technology
+Copyright (c) 1988,1989,1990,1991,1992 Massachusetts Institute of Technology
+Copyright (c) 1995,1998,1999,2000,2001 Massachusetts Institute of Technology
+Copyright (c) 2002,2003 Massachusetts Institute of Technology
 
 This file is part of MIT Scheme.
 
@@ -147,7 +149,7 @@ warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.")
   (let ((port
 	 (if (default-object? port)
 	     (current-output-port)
-	     (guarantee-output-port port))))
+	     (guarantee-output-port port 'IDENTIFY-WORLD))))
     (write-string "Copyright (c) " port)
     (write (decoded-time/year (or time-world-saved (get-decoded-time))) port)
     (write-string " Massachusetts Institute of Technology." port)
@@ -163,8 +165,11 @@ warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.")
 	  (write-string " at " port)
 	  (write-string (decoded-time/time-string time-world-saved) port)
 	  (newline port)))
-    (for-each (lambda (name)
-		(write-string "  " port)
-		(write-string (get-subsystem-identification-string name) port)
-		(newline port))
-	      (get-subsystem-names))))
\ No newline at end of file
+    (write-string-table (map get-subsystem-identification-string
+			     (get-subsystem-names))
+			port
+			#f
+			1
+			"|| "
+			" || "
+			" ||")))
\ No newline at end of file
-- 
2.25.1