* lang_ml/parsing/ast_ml.ml: removed NotParsedCorrectly

facebookarchive · Mar 8, 2014 · 77c1610 · 77c1610
1 parent 2d55a3d
commit 77c1610
Show file tree

Hide file tree

Showing 3 changed files with 0 additions and 6 deletions.
diff --git a/lang_ml/parsing/ast_ml.ml b/lang_ml/parsing/ast_ml.ml
@@ -329,8 +329,6 @@ and toplevel =
   (* some ml files contain some #! or even #load directives *)
   | TopDirective of tok
 
-  | NotParsedCorrectly of tok list
-
  and program = toplevel list
 
  (* with tarzan *)

diff --git a/lang_ml/parsing/meta_ast_ml.ml b/lang_ml/parsing/meta_ast_ml.ml
@@ -514,9 +514,6 @@ and vof_toplevel =
       let v1 = vof_seq_expr v1 in Ocaml.VSum (("TopSeqExpr", [ v1 ]))
   | TopDirective v1 ->
       let v1 = vof_info v1 in Ocaml.VSum (("TopDirective", [ v1 ]))
-  | NotParsedCorrectly v1 ->
-      let v1 = Ocaml.vof_list vof_info v1
-      in Ocaml.VSum (("NotParsedCorrectly", [ v1 ]))
 and vof_program v = Ocaml.vof_list vof_toplevel v
 
 let vof_any =

diff --git a/lang_ml/parsing/visitor_ml.ml b/lang_ml/parsing/visitor_ml.ml
@@ -544,7 +544,6 @@ and v_toplevel x =
   | Item v1 -> let v1 = v_item v1 in ()
   | ScSc v1 -> let v1 = v_info v1 in ()
   | TopSeqExpr v1 -> let v1 = v_seq_expr v1 in ()
-  | NotParsedCorrectly v1 -> let v1 = Ocaml.v_list v_info v1 in ()
   | TopDirective v1 -> let v1 = v_info v1 in ()
   in
   vin.ktoplevel (k, all_functions) x