diff options
author | Gary Houston <ghouston@arglist.com> | 2000-11-12 12:20:52 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 2000-11-12 12:20:52 +0000 |
commit | 9f561420d3125cdf68f102b4f30d5b5d141abda7 (patch) | |
tree | a68fd52b0bff7958e8bfe78b004fbfec1652f421 | |
parent | a9c632a2f3d043d7e1effc78de31822c823d1e8e (diff) | |
download | guile-9f561420d3125cdf68f102b4f30d5b5d141abda7.tar.gz |
* fports.c (scm_open_file): fix the 'b' option. Thanks
to George Caswell.
-rw-r--r-- | THANKS | 1 | ||||
-rw-r--r-- | libguile/ChangeLog | 5 | ||||
-rw-r--r-- | libguile/fports.c | 6 |
3 files changed, 11 insertions, 1 deletions
@@ -14,6 +14,7 @@ For fixes or providing information which led to a fix: Lars J. Aas Ian Bicking + George Caswell I. N. Golubev Brad Knotwell Matthias Köppe diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 0c93cdbe9..03f7fb717 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2000-11-12 Gary Houston <ghouston@arglist.com> + + * fports.c (scm_open_file): fix the 'b' option. Thanks + to George Caswell. + 2000-11-09 Gary Houston <ghouston@arglist.com> * ports.c, ports.h (scm_close_all_ports_except): deprecated. diff --git a/libguile/fports.c b/libguile/fports.c index 046bdf60a..a14130b40 100644 --- a/libguile/fports.c +++ b/libguile/fports.c @@ -306,8 +306,12 @@ SCM_DEFINE (scm_open_file, "open-file", 2, 0, 0, case '+': flags = (flags & ~(O_RDONLY | O_WRONLY)) | O_RDWR; break; + case 'b': +#if defined (O_BINARY) + flags |= O_BINARY; +#endif + break; case '0': /* unbuffered: handled later. */ - case 'b': /* 'binary' mode: ignored. */ case 'l': /* line buffered: handled during output. */ break; default: |