diff options
Diffstat (limited to 'engine/geninterp.ml')
| -rw-r--r-- | engine/geninterp.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/engine/geninterp.ml b/engine/geninterp.ml index 9e866f0cf8..a3e494f5c0 100644 --- a/engine/geninterp.ml +++ b/engine/geninterp.ml @@ -93,5 +93,9 @@ end module Interp = Register(InterpObj) -let interp = Interp.obj +let interp wit ist v = + let f = Interp.obj wit in + let tag = val_tag (Topwit wit) in + Ftactic.bind (f ist v) (fun v -> Ftactic.return (Val.inject tag v)) + let register_interp0 = Interp.register0 |