guile/guile-core THANKS libguile/ChangeLog libg...

[Gary Houston]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Gary Houston <address@hidden>   00/11/12 04:20:53

Modified files:
        guile-core     : THANKS 
        guile-core/libguile: ChangeLog fports.c 

Log message:
        * fports.c (scm_open_file): fix the 'b' option.  Thanks
        to George Caswell.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/THANKS.diff?r1=1.152&r2=1.153
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ChangeLog.diff?r1=1.1164&r2=1.1165
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/fports.c.diff?r1=1.82&r2=1.83

Patches:
Index: guile/guile-core/THANKS
diff -u guile/guile-core/THANKS:1.152 guile/guile-core/THANKS:1.153
--- guile/guile-core/THANKS:1.152       Tue Nov  7 13:38:03 2000
+++ guile/guile-core/THANKS     Sun Nov 12 04:20:52 2000
@@ -14,6 +14,7 @@
 
     Lars J. Aas
         Ian Bicking
+     George Caswell
       I. N. Golubev
        Brad Knotwell
    Matthias Köppe
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1164 
guile/guile-core/libguile/ChangeLog:1.1165
--- guile/guile-core/libguile/ChangeLog:1.1164  Thu Nov  9 14:44:09 2000
+++ guile/guile-core/libguile/ChangeLog Sun Nov 12 04:20:52 2000
@@ -1,3 +1,8 @@
+2000-11-12  Gary Houston  <address@hidden>
+
+       * fports.c (scm_open_file): fix the 'b' option.  Thanks
+       to George Caswell.
+
 2000-11-09  Gary Houston  <address@hidden>
 
        * ports.c, ports.h (scm_close_all_ports_except): deprecated.
Index: guile/guile-core/libguile/fports.c
diff -u guile/guile-core/libguile/fports.c:1.82 
guile/guile-core/libguile/fports.c:1.83
--- guile/guile-core/libguile/fports.c:1.82     Thu Nov  2 02:36:31 2000
+++ guile/guile-core/libguile/fports.c  Sun Nov 12 04:20:52 2000
@@ -306,8 +306,12 @@
        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: