]> matita.cs.unibo.it Git - helm.git/commitdiff
One useless Obj.magic removed.
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Fri, 19 Oct 2012 10:59:51 +0000 (10:59 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Fri, 19 Oct 2012 10:59:51 +0000 (10:59 +0000)
matita/components/grafite_parser/grafiteParser.ml

index 024d321b4b359ab54f0859c6e5254f6481960ee0..4e5c709f733115b3636a22c25fff28ed1b0e4f92 100644 (file)
@@ -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