Parsing fixes for camlp4 3.10.0 (Fedora 8).
authorRichard W.M. Jones <rjones@redhat.com>
Thu, 7 Aug 2008 10:56:44 +0000 (11:56 +0100)
committerRichard W.M. Jones <rjones@redhat.com>
Thu, 7 Aug 2008 10:56:44 +0000 (11:56 +0100)
extract/codegen/kerneldb_to_parser.ml

index 6414ce4..1d56126 100644 (file)
@@ -80,7 +80,7 @@ Example (from toplevel of virt-mem source tree):
   let infos = Sys.readdir kernelsdir in
   let infos = Array.to_list infos in
   let infos = List.filter (fun name -> String.ends_with name ".info") infos in
-  let infos = List.map ((//) kernelsdir) infos in
+  let infos = List.map ( (//) kernelsdir) infos in
 
   (* Regular expressions.  We really really should use ocaml-mikmatch ... *)
   let re_oldformat = Pcre.regexp "^RPM: \\d+: \\(build \\d+\\) ([-\\w]+) ([\\w.]+) ([\\w.]+) \\(.*?\\) (\\w+)" in
@@ -628,7 +628,7 @@ Example (from toplevel of virt-mem source tree):
          ) <:str_item< let map = StringMap.empty >> kernels in
 
          <:str_item<
-            module StringMap = Map.Make (String)
+            module StringMap = Map.Make (String) ;;
            $stmts$
          >> in