[Gcl-commits] gcl/o read.d

[Mike Thomas]

CVSROOT:        /sources/gcl
Module name:    gcl
Changes by:     Mike Thomas <mjthomas>  06/06/16 02:57:08

Modified files:
        o              : read.d 

Log message:
        Band Aid solution to build failure on Windows.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gcl/o/read.d?cvsroot=gcl&r1=1.44&r2=1.45

Patches:
Index: read.d
===================================================================
RCS file: /sources/gcl/gcl/o/read.d,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -b -r1.44 -r1.45
--- read.d      7 Jun 2006 15:04:59 -0000       1.44
+++ read.d      16 Jun 2006 02:57:07 -0000      1.45
@@ -295,6 +295,8 @@
 
        x = read_object(in);
        vs_push(x);
+
+#ifndef _WIN32        
        while (listen_stream(in)) {
          object c=read_char(in);
          if (cat(c)!=cat_whitespace) {
@@ -302,6 +304,7 @@
            break;
          }
        }
+#endif        
 
        if (sharp_eq_context_max > 0)
                x = vs_head = patch_sharp(x);