bug#24207: Fixing documentation example for make-custom-binary-input-port

[Christopher Allan Webber]

The example previously did not run, because it was missing the "closed"
parameter.  Fixed.

>From abed180e8ea3ada5c4e156165f0b5e648d517ba2 Mon Sep 17 00:00:00 2001
From: Christopher Allan Webber <address@hidden>
Date: Thu, 11 Aug 2016 15:10:19 -0500
Subject: [PATCH] Fix example in make-custom-binary-input-port documentation

* doc/ref/api-io.texi (Custom Ports): Add additional argument to example's
  invocation of make-custom-binary-input-port.  Previously had mismatched arity
  by missing "closed" argument.
---
 doc/ref/api-io.texi | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/doc/ref/api-io.texi b/doc/ref/api-io.texi
index 76c8db8..e4e4f36 100644
--- a/doc/ref/api-io.texi
+++ b/doc/ref/api-io.texi
@@ -1,7 +1,7 @@
 @c -*-texinfo-*-
 @c This is part of the GNU Guile Reference Manual.
 @c Copyright (C)  1996, 1997, 2000, 2001, 2002, 2003, 2004, 2007, 2009,
address@hidden   2010, 2011, 2013  Free Software Foundation, Inc.
address@hidden   2010, 2011, 2013, 2016  Free Software Foundation, Inc.
 @c See the file guile.texi for copying conditions.
 
 @node Input and Output
@@ -1278,8 +1278,8 @@ procedure (@pxref{Bytevector Ports}) could be implemented 
as follows:
     (set! position new-position))
 
   (make-custom-binary-input-port "the port" read!
-                                  get-position
-                                  set-position!))
+                                  get-position set-position!
+                                  #f))
 
 (read (open-bytevector-input-port (string->utf8 "hello")))
 @result{} hello
-- 
2.9.2