diff options
Diffstat (limited to 'src/tac2interp.ml')
| -rw-r--r-- | src/tac2interp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/tac2interp.ml b/src/tac2interp.ml index 664b7de3d6..d3bc79957b 100644 --- a/src/tac2interp.ml +++ b/src/tac2interp.ml @@ -105,7 +105,7 @@ let rec interp ist = function | GTacExt e -> let GenArg (Glbwit tag, e) = e in let tpe = Tac2env.interp_ml_object tag in - tpe.Tac2env.ml_interp ist e >>= fun e -> return (ValExt e) + tpe.Tac2env.ml_interp ist e and interp_app f args = match f with | ValCls { clos_env = ist; clos_var = ids; clos_exp = e } -> |