[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.10-3-g5dcbcfc

[Mark H Weaver]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=5dcbcfcef8eefd1f9e57d8ba69efe1ca945c95b1

The branch, stable-2.0 has been updated
       via  5dcbcfcef8eefd1f9e57d8ba69efe1ca945c95b1 (commit)
      from  e26ab067b2073c1eb5ace13d069674515b9f97c6 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 5dcbcfcef8eefd1f9e57d8ba69efe1ca945c95b1
Author: Mark H Weaver <address@hidden>
Date:   Wed Mar 19 23:36:46 2014 -0400

    Fix (rnrs io simple) to open file ports in textual mode.
    
    Fixes <http://bugs.gnu.org/17044>.
    Reported and diagnosed by Xin Wang <address@hidden>.
    
    * module/rnrs/io/simple.scm (open-input-file, open-output-file): Pass
      missing buffer-mode argument to open-file-{input,output}-port.
      Previously, (native-transcoder) was incorrectly passed as the
      buffer-mode argument, so no transcoder was provided, thus creating a
      binary port.

-----------------------------------------------------------------------

Summary of changes:
 module/rnrs/io/simple.scm |   13 ++++++++++---
 1 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/module/rnrs/io/simple.scm b/module/rnrs/io/simple.scm
index 031628b..5eb396f 100644
--- a/module/rnrs/io/simple.scm
+++ b/module/rnrs/io/simple.scm
@@ -1,6 +1,6 @@
 ;;; simple.scm --- The R6RS simple I/O library
 
-;;      Copyright (C) 2010, 2011 Free Software Foundation, Inc.
+;;      Copyright (C) 2010, 2011, 2014 Free Software Foundation, Inc.
 ;;
 ;; This library is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU Lesser General Public
@@ -91,6 +91,7 @@
                 eof-object 
                 eof-object?
                 file-options
+                buffer-mode
                 native-transcoder
                 get-char
                 lookahead-char
@@ -131,10 +132,16 @@
       (lambda (port) (with-output-to-port port thunk))))
 
   (define (open-input-file filename)
-    (open-file-input-port filename (file-options) (native-transcoder)))
+    (open-file-input-port filename
+                          (file-options)
+                          (buffer-mode block)
+                          (native-transcoder)))
 
   (define (open-output-file filename)
-    (open-file-output-port filename (file-options) (native-transcoder)))
+    (open-file-output-port filename
+                           (file-options)
+                           (buffer-mode block)
+                           (native-transcoder)))
 
   (define close-input-port close-port)
   (define close-output-port close-port)


hooks/post-receive
-- 
GNU Guile