This is an automated email from the git hooks/post-receive script.

mehdi pushed a commit to branch master
in repository mikmatch.

commit deff5c54b71ee45fd85a9eb25d184207a1290d10
Author: Mehdi Dogguy <me...@debian.org>
Date:   Thu May 8 20:15:11 2014 +0200

    Imported Upstream version 1.0.7
---
 VERSION                 |  2 +-
 common/syntax_common.ml | 12 ++++++------
 pcre/test.ml            |  8 ++++++--
 3 files changed, 13 insertions(+), 9 deletions(-)

diff --git a/VERSION b/VERSION
index 7f9e7b9..3acc00b 100755
--- a/VERSION
+++ b/VERSION
@@ -1,3 +1,3 @@
 #!/bin/sh
-mikmatch_version="1.0.6"
+mikmatch_version="1.0.7"
 echo -n $mikmatch_version
diff --git a/common/syntax_common.ml b/common/syntax_common.ml
index 4a46e84..9106650 100644
--- a/common/syntax_common.ml
+++ b/common/syntax_common.ml
@@ -23,27 +23,27 @@ let seq _loc e =
 
 let extend_common () =
   (try DELETE_RULE Gram patt: LIDENT END
-   with Not_found -> ());
+   with _rule_not_found -> ());
 
   (try 
      DELETE_RULE Gram 
        expr: "let"; opt_rec; binding; "in"; expr LEVEL ";" 
      END
-   with Not_found -> 
+   with _rule_not_found -> 
      Messages.cannot_delete_rule "(1)");
 
   (try
      DELETE_RULE Gram
        str_item: "let"; opt_rec; binding; "in"; expr
      END
-   with Not_found -> 
+   with _rule_not_found -> 
      Messages.cannot_delete_rule "(2)");
 
   (try
      DELETE_RULE Gram
        str_item: "let"; opt_rec; binding
      END
-   with Not_found -> 
+   with _rule_not_found -> 
      Messages.cannot_delete_rule "(3)");
 
 
@@ -223,14 +223,14 @@ let extend_regular () =
      DELETE_RULE Gram
        expr: "function"; match_case
      END
-   with Not_found -> 
+   with _rule_not_found -> 
      Messages.cannot_delete_rule "(reg 1)");
 
   (try
      DELETE_RULE Gram
        expr: "match"; sequence; "with"; match_case
      END
-   with Not_found -> 
+   with _rule_not_found -> 
      Messages.cannot_delete_rule "(reg 2)");
 
   EXTEND Gram
diff --git a/pcre/test.ml b/pcre/test.ml
index 64b408e..8e7dab3 100644
--- a/pcre/test.ml
+++ b/pcre/test.ml
@@ -251,8 +251,10 @@ let _ =
   List.iter print_endline ((SPLIT ",") "a,b,c")
 
 let _ =
-  let l = 
-    List.filter (FILTER _* ".ml" eos) (Array.to_list (Sys.readdir ".")) in
+  let l =
+    List.filter
+      (fun s -> (FILTER _* ".ml" eos) s)
+      (Array.to_list (Sys.readdir ".")) in
   printf "*.ml: %s\n%!" (String.concat " " l)
 
 
@@ -566,6 +568,8 @@ let () =
           assert false
     | _ -> assert false
 
+type test = { x : int; y : int }
+
 let f x =
   match x with
     | {x = 1; _} -> ()

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-ocaml-maint/packages/mikmatch.git

_______________________________________________
Pkg-ocaml-maint-commits mailing list
Pkg-ocaml-maint-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-ocaml-maint-commits

Reply via email to