dev-scheme/gauche/files/gauche-0.8.11-socket-buffering.diff


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

Index: ext/net/netlib.stub
===================================================================
RCS file: /cvsroot/gauche/Gauche/ext/net/netlib.stub,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -r1.49 -r1.50
--- ext/net/netlib.stub	10 Aug 2007 01:19:36 -0000	1.49
+++ ext/net/netlib.stub	26 Aug 2007 20:07:43 -0000	1.50
@@ -176,7 +176,7 @@
                                  &keyword (buffering #f) (buffered? #f))
   (body <top>
         (let* ((bufmode :: int))
-          (cond ((SCM_FALSEP buffered?) ;for backward compatibility
+          (cond ((not (SCM_FALSEP buffered?)) ;for backward compatibility
                  (set! bufmode SCM_PORT_BUFFER_FULL))
                 (else
                  (set! bufmode (Scm_BufferingMode buffering
@@ -188,7 +188,7 @@
                                   &keyword (buffering #f) (buffered? #f))
   (body <top>
         (let* ((bufmode :: int))
-          (cond ((SCM_FALSEP buffered?) ;for backward compatibility
+          (cond ((not (SCM_FALSEP buffered?)) ;for backward compatibility
                  (set! bufmode SCM_PORT_BUFFER_FULL))
                 (else
                  (set! bufmode (Scm_BufferingMode buffering