diff options
| author |  Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-10-13 16:33:28 +0200 |
|---|---|---|
| committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-10-13 18:13:20 +0200 |
| commit | bce50a4e984a4aaf4f6582f079d7c4bddf4d1ff8 (patch) | |
| tree | 743d76cec163702a51706fd2ba011eeaada374e2 /kernel/declareops.ml | |
| parent | 9d0011125da2b24ccf006154ab205c6987fb03d2 (diff) | |
STM: simplify how the term part of a side effect is retrieved
Now the seff contains it directly, no need to force the future
or to hope that it is a Direct opaque proof.
Diffstat (limited to 'kernel/declareops.ml')
| -rw-r--r-- | kernel/declareops.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/declareops.ml b/kernel/declareops.ml index d99382129..e13fb4f08 100644 --- a/kernel/declareops.ml +++ b/kernel/declareops.ml @@ -298,9 +298,9 @@ let join_constant_body otab cb = | _ -> () let string_of_side_effect = function - | SEsubproof (c,_) -> Names.string_of_con c + | SEsubproof (c,_,_) -> Names.string_of_con c | SEscheme (cl,_) -> - String.concat ", " (List.map (fun (_,c,_) -> Names.string_of_con c) cl) + String.concat ", " (List.map (fun (_,c,_,_) -> Names.string_of_con c) cl) type side_effects = side_effect list let no_seff = ([] : side_effects) let iter_side_effects f l = List.iter f (List.rev l) |