Corrige le probleme de '->' dans un type de token ou de production.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1764 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
1997-11-13 09:57:52 +00:00 · 1997-11-13 09:57:52 +00:00 · 1ebfd06999
parent 576365579c
commit 1ebfd06999
1 changed files with 1 additions and 1 deletions
--- a/yacc/reader.c
+++ b/yacc/reader.c
@ -777,7 +777,7 @@ get_tag(void)
    while (1) {
      c = *++cptr;
      if (c == EOF) unexpected_EOF();
-      if (c == '>') break;
+      if (c == '>' && cptr[-1] != '-') break;
      cachec(c);
    }
    ++cptr;