From 5835804bd69a193b9ea29b6d4c8d0cc03530ccdd Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Fri, 18 Dec 2015 18:04:14 +0100
Subject: Removing ad-hoc interpretation rules for tactic notations and their
 genarg.

Now that types can share the same dynamic representation, we do not have
to transtype the topelvel values dynamically and just take advantage of
the standard interpretation function.
---
 interp/stdarg.ml | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'interp/stdarg.ml')

diff --git a/interp/stdarg.ml b/interp/stdarg.ml
index 5cfe3854a9..e155a5217d 100644
--- a/interp/stdarg.ml
+++ b/interp/stdarg.ml
@@ -15,9 +15,7 @@ let wit_bool : bool uniform_genarg_type =
   make0 None "bool"
 
 let wit_int : int uniform_genarg_type =
-  make0 ~dyn:(val_tag (Obj.magic IntOrVarArgType)) None "int"
-(** FIXME: IntOrVarArgType is hardwired, but that definition should be the other
-    way around. *)
+  make0 None "int"
 
 let wit_string : string uniform_genarg_type =
   make0 None "string"
-- 
cgit v1.2.3