From 12d6154526644fa241cfe30994b049b1e187b861 Mon Sep 17 00:00:00 2001
From: Alain Frisch <alain@frisch.fr>
Date: Thu, 29 Dec 2011 17:35:15 +0000
Subject: [PATCH] Remove some useless declarations of recursive functions (now
 captured with warning 26).

git-svn-id: http://caml.inria.fr/svn/ocaml/branches/unused_declarations@11975 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 camlp4/Camlp4/Struct/Camlp4Ast2OCamlAst.ml | 7 -------
 camlp4/Camlp4/Struct/Grammar/Insert.ml     | 4 ----
 2 files changed, 11 deletions(-)

diff --git a/camlp4/Camlp4/Struct/Camlp4Ast2OCamlAst.ml b/camlp4/Camlp4/Struct/Camlp4Ast2OCamlAst.ml
index 9e3a83ddb..0200d1896 100644
--- a/camlp4/Camlp4/Struct/Camlp4Ast2OCamlAst.ml
+++ b/camlp4/Camlp4/Struct/Camlp4Ast2OCamlAst.ml
@@ -880,13 +880,6 @@ value varify_constructors var_names =
       in
       let vars = id_to_string vs in
       let ampersand_vars = List.map (fun x -> "&" ^ x) vars in
-      let rec merge_quoted_vars lst = 
-	match lst with
-	  [
-	    [x] -> x
-	  | [x::y] -> <:ctyp<$x$ $merge_quoted_vars y$ >>
-	  | [] -> assert False ]
-      in
       let ty' = varify_constructors vars (ctyp ty) in
       let mkexp = mkexp _loc in
       let mkpat = mkpat _loc in
diff --git a/camlp4/Camlp4/Struct/Grammar/Insert.ml b/camlp4/Camlp4/Struct/Grammar/Insert.ml
index 551ce95ec..24deb01f5 100644
--- a/camlp4/Camlp4/Struct/Grammar/Insert.ml
+++ b/camlp4/Camlp4/Struct/Grammar/Insert.ml
@@ -256,10 +256,6 @@ module Make (Structure : Structure.S) = struct
                 Some t
             | None -> None ]
       | LocAct _ _ | DeadEnd -> None ]
-    and insert_new =
-      fun
-      [ [s :: sl] -> Node {node = s; son = insert_new sl; brother = DeadEnd}
-      | [] -> LocAct action [] ]
     in
     insert gsymbols tree
   ;