diff options
| author | Pierre-Marie Pédrot | 2016-04-14 18:33:28 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-05-04 13:47:12 +0200 |
| commit | 8ad2627de29639b21473783195905dca6bb1c6ae (patch) | |
| tree | 87f3123c9a660daa310d172e472832051eb5f4de /engine/geninterp.ml | |
| parent | 011ac2d7db53f0df2849985ef9cc044574c0ddb0 (diff) | |
Getting rid of the Geninterp.generic_interp function.
Diffstat (limited to 'engine/geninterp.ml')
| -rw-r--r-- | engine/geninterp.ml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/engine/geninterp.ml b/engine/geninterp.ml index 0d67213674..be4011cb64 100644 --- a/engine/geninterp.ml +++ b/engine/geninterp.ml @@ -28,8 +28,3 @@ module Interp = Register(InterpObj) let interp = Interp.obj let register_interp0 = Interp.register0 - -let generic_interp ist (GenArg (Glbwit wit, v)) = - let open Ftactic.Notations in - interp wit ist v >>= fun ans -> - Ftactic.return (Val.inject (val_tag (topwit wit)) ans) |