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

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
(RightNamed s', w), (used1, used2)
| _ -> (subject, where), (used1, used2)
| Left, _ -> (subject, where), (used1, used2)
let from_pos = Keyword.posvar subject where flavor
and to_pos = Keyword.posvar subject' where' flavor in
Supports Markdown
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