X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/fwd/blobdiff_plain/046a152e4526d789407a3d020a2c38cdd956f4f3..9e1c09df3d033bd9a47d25d067f5a42f127b7dba:/scan.c?ds=inline

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';