summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>2000-11-12 12:20:52 +0000
committerGary Houston <ghouston@arglist.com>2000-11-12 12:20:52 +0000
commit9f561420d3125cdf68f102b4f30d5b5d141abda7 (patch)
treea68fd52b0bff7958e8bfe78b004fbfec1652f421 /libguile
parenta9c632a2f3d043d7e1effc78de31822c823d1e8e (diff)
downloadguile-9f561420d3125cdf68f102b4f30d5b5d141abda7.tar.gz
* fports.c (scm_open_file): fix the 'b' option. Thanks
to George Caswell.
Diffstat (limited to 'libguile')
-rw-r--r--libguile/ChangeLog5
-rw-r--r--libguile/fports.c6
2 files changed, 10 insertions, 1 deletions
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: