From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Fri, 19 Oct 2012 10:59:51 +0000 (+0000)
Subject: One useless Obj.magic removed.
X-Git-Tag: make_still_working~1489
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=6906417a548f47a888fa5a43470dc3c5d7e4442b;p=helm.git

One useless Obj.magic removed.
---

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