From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 3 Jan 2003 01:37:53 +0000 (+0000)
Subject: Rename: WRITE-STRINGS-AS-TABLE -> WRITE-STRINGS-IN-COLUMNS.
X-Git-Tag: 20090517-FFI~2074
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=985344cce50437f9e6a5f5cdd275b96644c7686e;p=mit-scheme.git

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

diff --git a/v7/src/runtime/output.scm b/v7/src/runtime/output.scm
index 29fb6e53b..416d5aa88 100644
--- 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.
 
 ;;;; 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 37a112689..7b43ebc38 100644
--- 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 81cf44f04..3513ae24e 100644
--- 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