Commit 9b52be87 authored by POTTIER Francois's avatar POTTIER Francois

Clarify a wildcard in a pattern matching.

parent e2b9c66a
......@@ -49,7 +49,7 @@ let rename_inlined_psym (psym, first_prod, last_prod) phi l =
with Not_found -> s
in
(RightNamed s', w), (used1, used2)
| _ -> (subject, where), (used1, used2)
| Left, _ -> (subject, where), (used1, used2)
in
let from_pos = Keyword.posvar subject where flavor
and to_pos = Keyword.posvar subject' where' flavor in
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment