diff options
| author | Pierre-Marie Pédrot | 2016-01-17 01:58:05 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-01-17 02:50:34 +0100 |
| commit | d3ee6b2fbcd0fbb666af7f1920446e809e8d6e1e (patch) | |
| tree | 7513c21eb6369d45c40106238c60a53e43ef6948 /tactics/geninterp.ml | |
| parent | 88a16f49efd315aa1413da67f6d321a5fe269772 (diff) | |
Getting rid of the awkward unpack mechanism from Genarg.
Diffstat (limited to 'tactics/geninterp.ml')
| -rw-r--r-- | tactics/geninterp.ml | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/tactics/geninterp.ml b/tactics/geninterp.ml index dff87d3a82..fd4f7315e3 100644 --- a/tactics/geninterp.ml +++ b/tactics/geninterp.ml @@ -29,10 +29,7 @@ module Interp = Register(InterpObj) let interp = Interp.obj let register_interp0 = Interp.register0 -let generic_interp ist v = +let generic_interp ist (GenArg (Glbwit wit, v)) = let open Ftactic.Notations in - let unpacker wit v = - interp wit ist (glb v) >>= fun ans -> - Ftactic.return (Val.Dyn (val_tag (topwit wit), ans)) - in - unpack { unpacker; } v + interp wit ist v >>= fun ans -> + Ftactic.return (Val.Dyn (val_tag (topwit wit), ans)) |