camlp4,fix,bug,loc: Fix the PR#4521 bug about locations (thanks to Jerome Vouillon)

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@9035 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2008-09-23 00:07:45 +00:00 · 2008-09-23 00:07:45 +00:00 · 7b822718b8
parent ff4580e3b8
commit 7b822718b8
1 changed files with 1 additions and 1 deletions
--- a/camlp4/Camlp4/Struct/Grammar/Parser.ml
+++ b/camlp4/Camlp4/Struct/Grammar/Parser.ml
@ -357,7 +357,7 @@ module Make (Structure : Structure.S) = struct
            fun c levn bp a strm ->
              if levn > clevn then p1 c levn bp a strm
              else
-                match strm with parser bp
+                match strm with parser
                [ [: act = p1 c levn bp a :] -> act
                | [: (act, loc) = add_loc c bp p2 :] ->
                    let a = Action.getf2 act a loc in