X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fgrafite_parser%2FgrafiteParser.ml;h=4e5c709f733115b3636a22c25fff28ed1b0e4f92;hb=6906417a548f47a888fa5a43470dc3c5d7e4442b;hp=024d321b4b359ab54f0859c6e5254f6481960ee0;hpb=0fa1d4541bec571d84c726c488ba500a269bfb07;p=helm.git diff --git a/matita/components/grafite_parser/grafiteParser.ml b/matita/components/grafite_parser/grafiteParser.ml index 024d321b4..4e5c709f7 100644 --- a/matita/components/grafite_parser/grafiteParser.ml +++ b/matita/components/grafite_parser/grafiteParser.ml @@ -50,7 +50,7 @@ let parsable_statement status buf = let parse_statement grafite_parser parsable = exc_located_wrapper - (fun () -> (Grammar.Entry.parse_parsable (Obj.magic grafite_parser) (fst parsable))) + (fun () -> (Grammar.Entry.parse_parsable grafite_parser (fst parsable))) let strm_of_parsable (_,buf) = buf