2000-11-07 Gary Houston <ghouston@arglist.com>

	* popen.scm (open-output-pipe): added docstrings for open-input-pipe
	and open-output-pipe.

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index bc2abc9..4661db3 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-07  Gary Houston  <ghouston@arglist.com>
+
+       * popen.scm (open-output-pipe): added docstrings for open-input-pipe
+       and open-output-pipe.
+
 2000-11-06  Gary Houston  <ghouston@arglist.com>
 
        * popen.scm (open-process): bug fix: don't use

diff --git a/ice-9/popen.scm b/ice-9/popen.scm
index 874477b..eca3dfe 100644 (file)
--- a/ice-9/popen.scm
+++ b/ice-9/popen.scm
@@ -152,5 +152,10 @@ information on how to interpret this value."
 
 (add-hook! after-gc-hook reap-pipes)
 
-(define-public (open-input-pipe command) (open-pipe command OPEN_READ))
-(define-public (open-output-pipe command) (open-pipe command OPEN_WRITE))
+(define-public (open-input-pipe command)
+  "Equivalent to @code{open-pipe} with mode @code{OPEN_READ}"
+  (open-pipe command OPEN_READ))
+
+(define-public (open-output-pipe command)
+  "Equivalent to @code{open-pipe} with mode @code{OPEN_WRITE}"
+  (open-pipe command OPEN_WRITE))