diff options
author | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-05 17:44:45 +0000 |
---|---|---|
committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-05 17:44:45 +0000 |
commit | 65eec025bc0b581fae1af78f18d1a8666b76e69b (patch) | |
tree | 09a1d670468a2f141543c51a997f607f68eadef2 /proofs/refiner.mli | |
parent | 29301ca3587f2069278745df83ad46717a3108a9 (diff) |
Moving side effects into evar_map. There was no reason to keep another
state out of one we were threading all the way along. This should be
safer, as one cannot forego side effects accidentally by manipulating
explicitly the [sigma] container.
Still, this patch raised the issue of badly used evar maps. There
is an ad-hoc workaround (i.e. a hack) in Rewrite to handle the
fact it uses evar maps in an unorthodox way.
Likewise, that mean we have to revert all contrib patches that added
effect threading...
There was also a dubious use of side effects in their toplevel handling,
that duplicates them, leading to the need of a rather unsafe List.uniquize
afterwards. It should be investigaged.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16850 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/refiner.mli')
-rw-r--r-- | proofs/refiner.mli | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/proofs/refiner.mli b/proofs/refiner.mli index b2e753ea3..c198958e3 100644 --- a/proofs/refiner.mli +++ b/proofs/refiner.mli @@ -16,17 +16,15 @@ open Logic (** The refiner (handles primitive rules and high-level tactics). *) val sig_it : 'a sigma -> 'a -val sig_eff : 'a sigma -> Declareops.side_effects val project : 'a sigma -> evar_map val pf_env : goal sigma -> Environ.env val pf_hyps : goal sigma -> named_context -val unpackage : 'a sigma -> evar_map ref * 'a * Declareops.side_effects ref -val repackage : Declareops.side_effects ref -> evar_map ref -> 'a -> 'a sigma +val unpackage : 'a sigma -> evar_map ref * 'a +val repackage : evar_map ref -> 'a -> 'a sigma val apply_sig_tac : - Declareops.side_effects ref -> evar_map ref -> - (goal sigma -> goal list sigma) -> goal -> goal list + evar_map ref -> (goal sigma -> goal list sigma) -> goal -> goal list val refiner : rule -> tactic |