Print ID strings in row-major order.

diff --git a/v7/src/runtime/savres.scm b/v7/src/runtime/savres.scm
index 6c01f6575e4d7d9975ffdecf51a91b12f2c32cdf..81cf44f04da7cf4f3066c6cfa674f7d4f47b1112 100644 (file)
--- a/v7/src/runtime/savres.scm
+++ b/v7/src/runtime/savres.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: savres.scm,v 14.39 2003/01/02 01:56:33 cph Exp $
+$Id: savres.scm,v 14.40 2003/01/02 02:02:41 cph Exp $
 
 Copyright (c) 1988,1989,1990,1991,1992 Massachusetts Institute of Technology
 Copyright (c) 1995,1998,1999,2000,2001 Massachusetts Institute of Technology
@@ -168,7 +168,7 @@ warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.")
     (write-strings-as-table (map get-subsystem-identification-string
                                 (get-subsystem-names))
                            port
-                           #f
+                           #t
                            1
                            "  "
                            " || "