let ident =
match fpatt with
| <:patt< $lid:ident$ >> -> ident
+ | <:patt< _ >> -> "_"
| _ ->
Loc.raise _loc
(Failure "cannot compare a bitstring to a constant") in
let ident =
match fpatt with
| <:patt< $lid:ident$ >> -> ident
+ | <:patt< _ >> -> "_"
| _ ->
Loc.raise _loc
(Failure "cannot compare a bitstring to a constant") in