diff options
| -rw-r--r-- | tactics/tacinterp.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 9895f955dc..e0a573d642 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1389,7 +1389,9 @@ and vcontext_interp ist = function | (VContext (ist',lr,lmr)) as v -> (match ist.goalopt with | None -> v - | Some g -> (* Relaunch *) match_context_interp ist' lr lmr g) + | Some g -> match_context_interp ist lr lmr g) +(* The closure system does not work yet. It must be better studied. *) +(* (* Relaunch *) match_context_interp ist' lr lmr g)*) | v -> v (* Tries to match the hypotheses in a Match Context *) |