New procedure WRITE-STRINGS-AS-TABLE is used to format the ID strings

printed by IDENTIFY-WORLD.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 0b459ae8b06de1417ae87a95104d86fccce63a21..37a1126896d0184f9a9022d0d8ef9a3f03b113b8 100644 (file)
--- 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 7d6df039ef1648a39c53b88a50d3dcd385543b83..91e656dc7d871d4a399b206d9eda05e8755a098d 100644 (file)
--- 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