Rename: WRITE-STRINGS-AS-TABLE -> WRITE-STRINGS-IN-COLUMNS.

diff --git a/v7/src/runtime/output.scm b/v7/src/runtime/output.scm
index 29fb6e53b63ba7bb2c39dd99a07e3136230bfe4b..416d5aa88755ac0c4d4663ac81a98cde4531531d 100644 (file)
--- a/v7/src/runtime/output.scm
+++ b/v7/src/runtime/output.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: output.scm,v 14.28 2003/01/03 01:35:55 cph Exp $
+$Id: output.scm,v 14.29 2003/01/03 01:37:38 cph Exp $
 
 Copyright (c) 1986,1987,1988,1989,1990 Massachusetts Institute of Technology
 Copyright (c) 1991,1992,1993,1999,2001 Massachusetts Institute of Technology
@@ -172,16 +172,16 @@ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 \f
 ;;;; Tabular output
 
-(define (write-strings-as-table strings port row-major? min-minor
-                               left-margin col-sep right-margin)
+(define (write-strings-in-columns strings port row-major? min-minor
+                                 left-margin col-sep right-margin)
   (if (not (list-of-type? strings string?))
       (error:wrong-type-argument strings "list of strings"
-                                'WRITE-STRINGS-AS-TABLE))
-  (guarantee-output-port port 'WRITE-STRINGS-AS-TABLE)
-  (guarantee-exact-positive-integer min-minor 'WRITE-STRINGS-AS-TABLE)
-  (guarantee-string left-margin 'WRITE-STRINGS-AS-TABLE)
-  (guarantee-string col-sep 'WRITE-STRINGS-AS-TABLE)
-  (guarantee-string right-margin 'WRITE-STRINGS-AS-TABLE)
+                                'WRITE-STRINGS-IN-COLUMNS))
+  (guarantee-output-port port 'WRITE-STRINGS-IN-COLUMNS)
+  (guarantee-exact-positive-integer min-minor 'WRITE-STRINGS-IN-COLUMNS)
+  (guarantee-string left-margin 'WRITE-STRINGS-IN-COLUMNS)
+  (guarantee-string col-sep 'WRITE-STRINGS-IN-COLUMNS)
+  (guarantee-string right-margin 'WRITE-STRINGS-IN-COLUMNS)
   (let ((n-strings (length strings))
        (max-width (output-port/x-size port))
        (lm-width (string-length left-margin))

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 37a1126896d0184f9a9022d0d8ef9a3f03b113b8..7b43ebc38e58fdeeb696e1016106befe47aa219b 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.420 2003/01/02 01:52:27 cph Exp $
+$Id: runtime.pkg,v 14.421 2003/01/03 01:37:45 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,7 +1915,7 @@ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
          write-char
          write-line
          write-string
-         write-strings-as-table
+         write-strings-in-columns
          write-substring))
 
 (define-package (runtime interrupt-handler)

diff --git a/v7/src/runtime/savres.scm b/v7/src/runtime/savres.scm
index 81cf44f04da7cf4f3066c6cfa674f7d4f47b1112..3513ae24e4ac0d494d79bc80e656eca3abce458e 100644 (file)
--- a/v7/src/runtime/savres.scm
+++ b/v7/src/runtime/savres.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: savres.scm,v 14.40 2003/01/02 02:02:41 cph Exp $
+$Id: savres.scm,v 14.41 2003/01/03 01:37:53 cph Exp $
 
 Copyright (c) 1988,1989,1990,1991,1992 Massachusetts Institute of Technology
 Copyright (c) 1995,1998,1999,2000,2001 Massachusetts Institute of Technology
@@ -165,11 +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)))
-    (write-strings-as-table (map get-subsystem-identification-string
-                                (get-subsystem-names))
-                           port
-                           #t
-                           1
-                           "  "
-                           " || "
-                           "")))
\ No newline at end of file
+    (write-strings-in-columns (map get-subsystem-identification-string
+                                  (get-subsystem-names))
+                             port
+                             #t
+                             1
+                             "  "
+                             " || "
+                             "")))
\ No newline at end of file