Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
master
Alain Frisch 2011-12-29 17:35:15 +00:00
parent 957db9c0f5
commit 12d6154526
2 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
camlp4/Camlp4/Struct/Camlp4Ast2OCamlAst.ml
View File

@ -880,13 +880,6 @@ value varify_constructors var_names =
in in
let vars = id_to_string vs in let vars = id_to_string vs in
let ampersand_vars = List.map (fun x -> "&" ^ x) vars 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 ty' = varify_constructors vars (ctyp ty) in
let mkexp = mkexp _loc in let mkexp = mkexp _loc in
let mkpat = mkpat _loc in let mkpat = mkpat _loc in

4
camlp4/Camlp4/Struct/Grammar/Insert.ml
View File

@ -256,10 +256,6 @@ module Make (Structure : Structure.S) = struct
Some t Some t
| None -> None ] | None -> None ]
| LocAct _ _ | DeadEnd -> None ] | LocAct _ _ | DeadEnd -> None ]
and insert_new =
fun
[ [s :: sl] -> Node {node = s; son = insert_new sl; brother = DeadEnd}
| [] -> LocAct action [] ]
in in
insert gsymbols tree insert gsymbols tree
; ;