diff options
| author |  delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-05-31 21:08:10 +0000 |
|---|---|---|
| committer | delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-05-31 21:08:10 +0000 |
| commit | d445ad43b174c98c49927814fb6f48b2efff49cc (patch) | |
| tree | 2b804c033b71e751f53465b497a78926b52c695c | |
| parent | 6fe4d02936802bee35c73cdab2d08d8d4d3bd530 (diff) | |
Les VContext ne sont plus des fermetures (temporaire)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2743 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 9895f955d..e0a573d64 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 *) |