-

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4417 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2002-02-15 20:40:34 +00:00 · 2002-02-15 20:40:34 +00:00 · c9ca1c5c34
parent c874a20260
commit c9ca1c5c34
1 changed files with 2 additions and 2 deletions
--- a/camlp4/compile/compile.ml
+++ b/camlp4/compile/compile.ml
@ -246,8 +246,8 @@ and parse_symbol entry nlevn s rkont fkont ending_act =
        let p_con = String.escaped (fst tok) in
        let p_prm = String.escaped (snd tok) in
        if snd tok = "" then
-           if fst tok = "ANY" then <:patt< (_, $patt$) >>
-           else <:patt< ($str:p_con$, $patt$) >>
+          if fst tok = "ANY" then <:patt< (_, $patt$) >>
+          else <:patt< ($str:p_con$, $patt$) >>
        else
          let p = <:patt< ($str:p_con$, $str:p_prm$) >> in
          match patt with