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

printed by IDENTIFY-WORLD.

diff --git a/v7/src/runtime/savres.scm b/v7/src/runtime/savres.scm
index 7745a74e73266df81661d92e8533e82320667a76..6c01f6575e4d7d9975ffdecf51a91b12f2c32cdf 100644 (file)
--- a/v7/src/runtime/savres.scm
+++ b/v7/src/runtime/savres.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: savres.scm,v 14.38 2003/01/02 01:55:19 cph Exp $
+$Id: savres.scm,v 14.39 2003/01/02 01:56:33 cph Exp $
 
 Copyright (c) 1988,1989,1990,1991,1992 Massachusetts Institute of Technology
 Copyright (c) 1995,1998,1999,2000,2001 Massachusetts Institute of Technology
@@ -170,6 +170,6 @@ warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.")
                            port
                            #f
                            1
-                           "|| "
+                           "  "
                            " || "
-                           " ||")))
\ No newline at end of file
+                           "")))
\ No newline at end of file