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 = ...@@ -49,7 +49,7 @@ let rename_inlined_psym (psym, first_prod, last_prod) phi l =
with Not_found -> s with Not_found -> s
in in
(RightNamed s', w), (used1, used2) (RightNamed s', w), (used1, used2)
| _ -> (subject, where), (used1, used2) | Left, _ -> (subject, where), (used1, used2)
in in
let from_pos = Keyword.posvar subject where flavor let from_pos = Keyword.posvar subject where flavor
and to_pos = Keyword.posvar subject' where' flavor in 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