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

[camlp4] Remove useless code due to inheritance of revised grammar. 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8649 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Nicolas Pouillard 2007-11-27 13:30:39 +00:00
parent d766f56732
commit ad0428b1a3
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
camlp4/Camlp4Parsers/Camlp4OCamlParser.ml
View File

@ -201,7 +201,6 @@ module Make (Syntax : Sig.Camlp4Syntax) = struct
clear labeled_ipatt; clear labeled_ipatt;
clear semi; clear semi;
clear do_sequence; clear do_sequence;
clear let_binding;
clear type_kind; clear type_kind;
clear constructor_arg_list; clear constructor_arg_list;
clear poly_type; clear poly_type;
@ -417,9 +416,6 @@ module Make (Syntax : Sig.Camlp4Syntax) = struct
[ [ e1 = SELF; ","; e2 = SELF -> <:expr< $e1$, $e2$ >> [ [ e1 = SELF; ","; e2 = SELF -> <:expr< $e1$, $e2$ >>
| e = expr LEVEL ":=" -> e ] ] | e = expr LEVEL ":=" -> e ] ]
; *) ; *)
let_binding:
[ [ p = patt; e = fun_binding -> <:binding< $p$ = $e$ >> ] ]
;
(* comma_patt: (* comma_patt:
[ [ p1 = SELF; ","; p2 = SELF -> <:patt< $p1$, $p2$ >> [ [ p1 = SELF; ","; p2 = SELF -> <:patt< $p1$, $p2$ >>
| p = patt LEVEL ".." -> p ] ] | p = patt LEVEL ".." -> p ] ]