diff options
Diffstat (limited to 'proofs/refine.ml')
-rw-r--r-- | proofs/refine.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/refine.ml b/proofs/refine.ml index 50fd1c472..39d77d983 100644 --- a/proofs/refine.ml +++ b/proofs/refine.ml @@ -119,7 +119,7 @@ let generic_refine ~typecheck f gl = | Some id -> Evd.rename evk id sigma in (** Restore the [future goals] state. *) - let sigma = Evd.restore_future_goals sigma prev_future_goals prev_principal_goal in + let sigma = Evd.restore_future_goals sigma (prev_future_goals,prev_principal_goal) in (** Select the goals *) let comb = CList.map_filter (Proofview.Unsafe.advance sigma) (CList.rev evs) in let sigma = CList.fold_left Proofview.Unsafe.mark_as_goal sigma comb in |