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

@@ -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

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
   ;