diff options
| author | Pierre-Marie Pédrot | 2016-04-13 16:44:42 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-05-04 13:47:12 +0200 |
| commit | 011ac2d7db53f0df2849985ef9cc044574c0ddb0 (patch) | |
| tree | 57a60e8a95705b61c7d45fd807f05c0384f56e8f /engine | |
| parent | 5da0f107cb3332d5cd87fc352aef112f6b74fc97 (diff) | |
Switching to an untyped toplevel representation for Ltac values.
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/geninterp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/engine/geninterp.ml b/engine/geninterp.ml index 0080758000..0d67213674 100644 --- a/engine/geninterp.ml +++ b/engine/geninterp.ml @@ -32,4 +32,4 @@ 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.Dyn (val_tag (topwit wit), ans)) + Ftactic.return (Val.inject (val_tag (topwit wit)) ans) |