[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Mark H Weaver
Subject: [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.10-3-g5dcbcfc
Date: Thu, 20 Mar 2014 03:42:41 +0000

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".

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 <>.
    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 @@
+                buffer-mode
@@ -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)

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]