[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 56/58: Fix R6RS call-with-{input, output}-file to open t
From: |
Andy Wingo |
Subject: |
[Guile-commits] 56/58: Fix R6RS call-with-{input, output}-file to open textual ports. |
Date: |
Tue, 7 Aug 2018 06:58:39 -0400 (EDT) |
wingo pushed a commit to branch lightning
in repository guile.
commit 215617caea2aa0a25377d68a517cf8a75686b1c4
Author: Mark H Weaver <address@hidden>
Date: Thu Aug 2 10:05:17 2018 -0400
Fix R6RS call-with-{input,output}-file to open textual ports.
Fixes <https://bugs.gnu.org/32329>.
Reported and diagnosed by Göran Weinholt <address@hidden>.
* module/rnrs/io/simple.scm (call-with-input-file)
(call-with-output-file): Use 'open-{input,output}-file' to open the port
in textual mode. Previously 'open-file-{input,output}-port' was used,
which opened the port in binary mode.
---
module/rnrs/io/simple.scm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/module/rnrs/io/simple.scm b/module/rnrs/io/simple.scm
index 5eb396f..0d778a9 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, 2014 Free Software Foundation, Inc.
+;; Copyright (C) 2010, 2011, 2014, 2018 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
@@ -118,10 +118,10 @@
(define display (@@ (rnrs io ports) display))
(define (call-with-input-file filename proc)
- (call-with-port (open-file-input-port filename) proc))
+ (call-with-port (open-input-file filename) proc))
(define (call-with-output-file filename proc)
- (call-with-port (open-file-output-port filename) proc))
+ (call-with-port (open-output-file filename) proc))
(define (with-input-from-file filename thunk)
(call-with-input-file filename
- [Guile-commits] 25/58: Add SRFI 71: Extended LET-syntax for multiple values., (continued)
- [Guile-commits] 25/58: Add SRFI 71: Extended LET-syntax for multiple values., Andy Wingo, 2018/08/07
- [Guile-commits] 37/58: types: Recognize 'scm_t_port_type' and decode port type name., Andy Wingo, 2018/08/07
- [Guile-commits] 48/58: Make srfi-71 visible through 'cond-expand'., Andy Wingo, 2018/08/07
- [Guile-commits] 46/58: build: Really build srfi/srfi-71.scm., Andy Wingo, 2018/08/07
- [Guile-commits] 43/58: Serialize accesses to submodule hash tables., Andy Wingo, 2018/08/07
- [Guile-commits] 50/58: compile: Add '-x' flag., Andy Wingo, 2018/08/07
- [Guile-commits] 57/58: Merge branch 'master' into lightning, Andy Wingo, 2018/08/07
- [Guile-commits] 44/58: Update copyright years in '--version' and the manual., Andy Wingo, 2018/08/07
- [Guile-commits] 55/58: srfi-19: Remove unused procedure., Andy Wingo, 2018/08/07
- [Guile-commits] 35/58: web: Export http-request., Andy Wingo, 2018/08/07
- [Guile-commits] 56/58: Fix R6RS call-with-{input, output}-file to open textual ports.,
Andy Wingo <=
- [Guile-commits] 54/58: Add -Wshadowed-toplevel., Andy Wingo, 2018/08/07