From 0d1345ea2423fc418a470786b0b33b80df3a67bc Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sun, 17 Jan 2016 01:08:21 +0100
Subject: Temporary commit getting rid of Obj.magic unsafety for Genarg.

This will allow an easier landing of the rewriting of Genarg.
---
 interp/constrarg.ml | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'interp')

diff --git a/interp/constrarg.ml b/interp/constrarg.ml
index a8dfd02e1d..f8957a24b8 100644
--- a/interp/constrarg.ml
+++ b/interp/constrarg.ml
@@ -19,9 +19,6 @@ let loc_of_or_by_notation f = function
   | AN c -> f c
   | ByNotation (loc,s,_) -> loc
 
-let unsafe_of_type (t : argument_type) : ('a, 'b, 'c) Genarg.genarg_type =
-  Obj.magic t
-
 let wit_int_or_var =
   Genarg.make0 ~dyn:(val_tag (topwit Stdarg.wit_int)) None "int_or_var"
 
-- 
cgit v1.2.3