X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=bitstring_objinfo.ml;h=c74de698c886c82fd4b3938fc3c9ac936ab05b49;hb=c5fb6aaecc4cc7fae8267123451b88fecaacc666;hp=90c52e4c1bb8a50ec3fa60a16b24d6a3f8d87857;hpb=46d02767bf223661c05127d86878a74be0bda712;p=ocaml-bitstring.git

diff --git a/bitstring_objinfo.ml b/bitstring_objinfo.ml
index 90c52e4..c74de69 100644
--- a/bitstring_objinfo.ml
+++ b/bitstring_objinfo.ml
@@ -1,4 +1,4 @@
-(* Bitmatch syntax extension.
+(* Bitstring syntax extension.
  * Copyright (C) 2008 Red Hat Inc., Richard W.M. Jones
  *
  * This program is free software; you can redistribute it and/or modify
@@ -20,12 +20,12 @@
 
 open Printf
 
-open Bitmatch
-module P = Bitmatch_persistent
+open Bitstring
+module P = Bitstring_persistent
 
 let () =
   if Array.length Sys.argv <= 1 then
-    failwith "bitmatch_objinfo filename.bmpp";
+    failwith "bitstring-objinfo filename.bmpp";
   let filename = Sys.argv.(1) in
   let chan = open_in filename in
   let names = ref [] in