X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcontent_pres%2FcicNotationParser.ml;h=5750ad816805a841d64b61fcecdb5c7c826924db;hb=771ee8b9d122fa963881c876e86f90531bb7434f;hp=71cc2bffd6c4d1f919c77898436583ccfa3585ac;hpb=9a0e4f3be9f70662f18d2d3b6dd60ae79fba565b;p=helm.git

diff --git a/helm/ocaml/content_pres/cicNotationParser.ml b/helm/ocaml/content_pres/cicNotationParser.ml
index 71cc2bffd..5750ad816 100644
--- a/helm/ocaml/content_pres/cicNotationParser.ml
+++ b/helm/ocaml/content_pres/cicNotationParser.ml
@@ -23,6 +23,8 @@
  * http://helm.cs.unibo.it/
  *)
 
+(* $Id$ *)
+
 open Printf
 
 module Ast = CicNotationPt
@@ -231,7 +233,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),