diff options
| author |  delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-06 13:33:26 +0000 |
|---|---|---|
| committer | delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-06 13:33:26 +0000 |
| commit | 91f845763d07155c394dfaf05a479e68321a587d (patch) | |
| tree | c95e90069401b819840eb9997ed847d368debf90 /proofs | |
| parent | f493d89591116352cf6ab9cf2c79e2a79739b28e (diff) | |
Correction pour les Unfold/Fold dans Cbv
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1337 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/tacinterp.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/tacinterp.ml b/proofs/tacinterp.ml index 3e81a9e14..74fc4fb29 100644 --- a/proofs/tacinterp.ml +++ b/proofs/tacinterp.ml @@ -1063,7 +1063,7 @@ and flag_of_ast (evc,env,lfun,lmatch,goalopt,debug) lf = match glob_const_nvar loc env (qid_interp v) with | EvalVarRef id -> red_add red (VAR id) | EvalConstRef sp -> red_add red (CONST [sp])) l red - in add_flag red lf + in add_flag idl lf (* (id_of_Identifier (unvarg (val_interp (evc,env,lfun,lmatch,goalopt,debug) v)))) l @@ -1076,7 +1076,7 @@ and flag_of_ast (evc,env,lfun,lmatch,goalopt,debug) lf = match glob_const_nvar loc env (qid_interp v) with | EvalVarRef id -> red_add red (VARBUT id) | EvalConstRef sp -> red_add red (CONSTBUT [sp])) l red - in add_flag red lf + in add_flag idl lf (* List.map |