Fix a bug in the lexer causing double-dots to double the character after the 2nd dot

diff --git a/lexer.c b/lexer.c
index d39a0e5633a1a0392cfebdb00ec9e72de9052387..10a00914c1071bf65abbd71d644e2b890e94eb3c 100644 (file)
--- a/lexer.c
+++ b/lexer.c
@@ -1110,7 +1110,7 @@ int lex_do(lex_file *lex)
             nextch = lex_getch(lex);
             if (nextch != '.') {
                 lex_ungetch(lex, nextch);
-                lex_ungetch(lex, nextch);
+                lex_ungetch(lex, '.');
                 lex_endtoken(lex);
                 return (lex->tok.ttype = ch);
             }