diff options
Diffstat (limited to 'libguile/fports.c')
-rw-r--r-- | libguile/fports.c | 6 |
1 files changed, 5 insertions, 1 deletions
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: |