Parsing fixes for camlp4 3.10.0 (Fedora 8).

[virt-mem.git] / extract / codegen / kerneldb_to_parser.ml

diff --git a/extract/codegen/kerneldb_to_parser.ml b/extract/codegen/kerneldb_to_parser.ml
index 6414ce4..1d56126 100644 (file)
--- a/extract/codegen/kerneldb_to_parser.ml
+++ b/extract/codegen/kerneldb_to_parser.ml
@@ -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