]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/ocaml/content_pres/cicNotationParser.ml
removed deadcode / fixed typos (thanks to ocaml 3.09)
[helm.git] / helm / ocaml / content_pres / cicNotationParser.ml
index 71cc2bffd6c4d1f919c77898436583ccfa3585ac..066eb813fd994436712ac2b73c58bd7c0be9ec92 100644 (file)
@@ -231,7 +231,7 @@ let extend level1_pattern ~precedence ~associativity action =
     List.split (extract_term_production level1_pattern)
   in
   let level = level_of precedence associativity in
-  let p_names = flatten_opt p_bindings in
+(*   let p_names = flatten_opt p_bindings in *)
   let _ =
     Grammar.extend
       [ Grammar.Entry.obj (term: 'a Grammar.Entry.e),