diff options
| author | herbelin | 2010-01-04 14:07:59 +0000 |
|---|---|---|
| committer | herbelin | 2010-01-04 14:07:59 +0000 |
| commit | 883bea94e52fff9cee76894761d3704872d7a61d (patch) | |
| tree | f60ce0ef15521daba0c996666562df16ea6edf6e /plugins | |
| parent | c7f63628e3659cc95235c71402c43b50aef3893d (diff) | |
Few misc. updates.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12622 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/subtac/subtac_command.ml | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/plugins/subtac/subtac_command.ml b/plugins/subtac/subtac_command.ml index dc57e4aadc..a2dd7d777d 100644 --- a/plugins/subtac/subtac_command.ml +++ b/plugins/subtac/subtac_command.ml @@ -52,12 +52,6 @@ open Subtac_obligations let evar_nf isevars c = Evarutil.nf_isevar !isevars c -let get_undefined_evars evd = - Evd.fold (fun ev evi evd' -> - if evi.evar_body = Evar_empty then - Evd.add evd' ev (nf_evar_info evd evi) - else evd') evd Evd.empty - let interp_gen kind isevars env ?(impls=([],[])) ?(allow_patvar=false) ?(ltacvars=([],[])) c = |