From 984d486034d3d16ef0b2ac15b94cf3d83591f346 Mon Sep 17 00:00:00 2001
From: Ludovic Courtes <ludovic.courtes@laas.fr>
Date: Sat, 3 Mar 2007 10:48:41 +0000
Subject: [PATCH] Cosmetic changes.

* STATUS: Added a foot note for "I/O".

* modules/r6rs/i/o/ports.scm (call-with-port): Removed the comment about
  lack of clarity of the spec.

git-archimport-id: lcourtes@laas.fr--2006-libre/guile-r6rs-libs--devo--0--patch-32
---
 ChangeLog                  | 16 ++++++++++++++++
 STATUS                     |  5 ++++-
 modules/r6rs/i/o/ports.scm |  3 ---
 3 files changed, 20 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index d40ccde..f12e068 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,22 @@
 # arch-tag: automatic-ChangeLog--lcourtes@laas.fr--2006-libre/guile-r6rs-libs--devo--0
 #
 
+2007-03-03 10:48:41 GMT	Ludovic Courtes <ludovic.courtes@laas.fr>	patch-32
+
+    Summary:
+      Cosmetic changes.
+    Revision:
+      guile-r6rs-libs--devo--0--patch-32
+
+    * STATUS: Added a foot note for "I/O".
+    
+    * modules/r6rs/i/o/ports.scm (call-with-port): Removed the comment about
+      lack of clarity of the spec.
+
+    modified files:
+     ChangeLog STATUS modules/r6rs/i/o/ports.scm
+
+
 2007-02-26 13:42:16 GMT	Ludovic Court`es <ludovic.courtes@laas.fr>	patch-31
 
     Summary:
diff --git a/STATUS b/STATUS
index 496cd86..6e17071 100644
--- a/STATUS
+++ b/STATUS
@@ -14,7 +14,7 @@ List Utilities
 Sorting
 Records
 Exceptions & Conditions
-I/O                       Partial (binary I/O)    5.92
+I/O                       Partial[0]              5.92
 File System
 Arithmetic
 `syntax-case'
@@ -27,3 +27,6 @@ Mutable Pairs
 R5RS Compatibility
 Sample Definitions...
 
+
+[0] Provides only support for binary I/O.  See
+    `modules/r6rs/i/o/ports.scm' for details.
diff --git a/modules/r6rs/i/o/ports.scm b/modules/r6rs/i/o/ports.scm
index 3fa9bd8..0424c28 100644
--- a/modules/r6rs/i/o/ports.scm
+++ b/modules/r6rs/i/o/ports.scm
@@ -82,9 +82,6 @@ read from/written to in @var{port}."
 (define (call-with-port port proc)
   "Call @var{proc}, passing it @var{port} and closing @var{port} upon exit of
 @var{proc}.  Return the return values of @var{proc}."
-
-  ;; FIXME: The spec is unclear as to what to do in cases of multiple
-  ;; exits/entries.
   (dynamic-wind
       (lambda ()
         #t)
-- 
2.11.4.GIT