* fports.c (scm_open_file): fix the 'b' option. Thanks

	to George Caswell.

diff --git a/THANKS b/THANKS
index 8d815d7..6f00ba1 100644 (file)
--- a/THANKS
+++ b/THANKS
@@ -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 0c93cdb..03f7fb7 100644 (file)
--- 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 046bdf6..a14130b 100644 (file)
--- 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: