3 --- rts/scan.c.orig 2003-11-21 21:00:01.000000000 +0100
6 static int scanToken (), scanInteger (), scanReal (), scanPointer ();
7 static int scanTokenFromSet ();
9 -#define BACKCH(c,f,S,s) (S ? ((s>DATA (S)) ? (s)-- : 0) : (char*)ungetc (c, f))
10 +#define BACKCH(c,f,S,s) (S ? ((s>DATA (S)) ? (s)--,0 : 0) : ungetc (c, f))
11 #define NEXTCH(l,f,S,s) (S ? ((*s=='\0') ? EOF : * (Char*)(s)++) : INCH (l, f))