X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=sidebyside;f=pa_bitmatch.ml;h=9a25da88e3cfedf8b93af67605c98163b64069d5;hb=ae3c1353436cf7ee38dda67f742ab3a5dd745324;hp=d5945e0f8d3f0a53f8b1895f8656e8cea4621248;hpb=c1d44102b94f885df0562783711aafba9413a3fd;p=ocaml-bitstring.git

diff --git a/pa_bitmatch.ml b/pa_bitmatch.ml
index d5945e0..9a25da8 100644
--- a/pa_bitmatch.ml
+++ b/pa_bitmatch.ml
@@ -657,6 +657,7 @@ let output_bitmatch _loc bs cases =
 	      let ident =
 		match fpatt with
 		| <:patt< $lid:ident$ >> -> ident
+		| <:patt< _ >> -> "_"
 		| _ ->
 		    Loc.raise _loc
 		      (Failure "cannot compare a bitstring to a constant") in
@@ -676,6 +677,7 @@ let output_bitmatch _loc bs cases =
 	      let ident =
 		match fpatt with
 		| <:patt< $lid:ident$ >> -> ident
+		| <:patt< _ >> -> "_"
 		| _ ->
 		    Loc.raise _loc
 		      (Failure "cannot compare a bitstring to a constant") in