X-Git-Url: https://git.distorted.org.uk/~mdw/fwd/blobdiff_plain/77d0e3dc66ecd3028914496e4c0084bcb1f8f7af..c9d2d52ac41a80b0c8acf7bcae3a7aa4c6952f4e:/scan.c

diff --git a/scan.c b/scan.c
index 506f98c..c29b48b 100644
--- a/scan.c
+++ b/scan.c
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: scan.c,v 1.2 1999/07/26 23:24:33 mdw Exp $
+ * $Id: scan.c,v 1.3 2000/08/01 17:58:10 mdw Exp $
  *
  * Character scanners
  *
@@ -29,6 +29,9 @@
 /*----- Revision history --------------------------------------------------* 
  *
  * $Log: scan.c,v $
+ * Revision 1.3  2000/08/01 17:58:10  mdw
+ * Fix subtleties with <ctype.h> functions.
+ *
  * Revision 1.2  1999/07/26 23:24:33  mdw
  * Complete rewrite.  Allow a list of character sources to enable changes
  * during parsing of syntactic constructs.
@@ -128,7 +131,7 @@ static int avscan_scan(scansrc *ss)
   int ch;
   if (!as->p)
     ch = EOF;
-  else if ((ch = *as->p++) == 0) {
+  else if ((ch = (unsigned char)*as->p++) == 0) {
     as->ss.line++;
     as->p = *as->av++;
     ch = '\n';