From b01518b4d9849c47608ba4f176b076a35a78a7d1 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Thu, 28 Nov 2002 14:15:34 +0000
Subject: [PATCH] Rename WAIT-PORTS to SELECT-PORTS.

---
 RELEASE                      | 2 +-
 doc/scsh-manual/syscalls.tex | 8 ++++----
 scsh/newports.scm            | 2 +-
 scsh/scsh-interfaces.scm     | 2 +-
 4 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/RELEASE b/RELEASE
index eff8d74..dcdb328 100644
--- a/RELEASE
+++ b/RELEASE
@@ -189,7 +189,7 @@ We manage the project using SourceForge:
 
 ** API changes
    select and select! are supported again.  Note however, that we
-   recommend to use the new wait-ports procedure instead whenever
+   recommend to use the new select-ports procedure instead whenever
    possible.
    New interface to the uname function.
    New direct interface to the directory stream operations
diff --git a/doc/scsh-manual/syscalls.tex b/doc/scsh-manual/syscalls.tex
index fdb0769..f2b7043 100644
--- a/doc/scsh-manual/syscalls.tex
+++ b/doc/scsh-manual/syscalls.tex
@@ -837,15 +837,15 @@ Returns two ports, the read and write end-points of a {\Unix} pipe.
       that send requests to multiple alternate servers and discard all
       but one of them.
       
-      In any case, the \texttt{wait-ports} procedure described below
+      In any case, the \texttt{select-ports} procedure described below
       is usually a preferable alternative to
       \texttt{select}/\texttt{select!}: it is much simpler to use, and
       also has a slightly more efficient implementation.}
 \end{desc}
 
-\defun {wait-ports}{timeout port \ldots}{ready-ports}
+\defun {select-ports}{timeout port \ldots}{ready-ports}
 \begin{desc}
-  The \ex{wait-ports} call will block until at least one of the ports
+  The \ex{select-ports} call will block until at least one of the ports
   passed to it is ready for operation.  For an input port this means
   that it either has data sitting its buffer or that the underlying
   file descriptor has data waiting.  For an output port this means
@@ -856,7 +856,7 @@ Returns two ports, the read and write end-points of a {\Unix} pipe.
   after a given number of seconds.  A value of \ex{\#f} means to wait
   indefinitely.  A zero value can be used to poll the ports.
 
-  \texttt{Wait-ports} returns a list of the ports ready for
+  \texttt{Select-ports} returns a list of the ports ready for
   operation.  Note that this list may be empty if the timeout expired
   before any ports became ready.
 \end{desc}
diff --git a/scsh/newports.scm b/scsh/newports.scm
index 09e0ecd..68d97d5 100644
--- a/scsh/newports.scm
+++ b/scsh/newports.scm
@@ -950,7 +950,7 @@
 		 (values n-read-ready n-write-ready 0)))))))))
 
 
-(define (wait-ports timeout . ports)
+(define (select-ports timeout . ports)
   (let ((read-list (filter input-port? ports))
 	(write-list (filter output-port? ports)))
 
diff --git a/scsh/scsh-interfaces.scm b/scsh/scsh-interfaces.scm
index dfefc62..21a1d2f 100644
--- a/scsh/scsh-interfaces.scm
+++ b/scsh/scsh-interfaces.scm
@@ -221,7 +221,7 @@
 			      read-string!/partial
 
 			      select select!
-			      wait-ports
+			      select-ports
 
 			      (write-string (proc (:string &opt :value :exact-integer :exact-integer) :unspecific))
 			      write-string/partial)))