diff options
| author | Gaëtan Gilbert | 2019-07-24 13:12:29 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-07-24 13:12:29 +0200 |
| commit | 368969991c54f0e988122edbc08c8c97ce6f9efc (patch) | |
| tree | d94b0589d6a22fad6545f010b970fd16acf0955a /stm | |
| parent | d57f262bb39ebbcae630f1439377c51aaa41452b (diff) | |
| parent | de2397e5ed4d050c8bc157803a0d8827b9b0caf9 (diff) | |
Merge PR #10537: [vernacexpr] Refactor fixpoint AST.
Reviewed-by: SkySkimmer
Reviewed-by: gares
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/vernac_classifier.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stm/vernac_classifier.ml b/stm/vernac_classifier.ml index aaba36287a..8750a64ccc 100644 --- a/stm/vernac_classifier.ml +++ b/stm/vernac_classifier.ml @@ -106,8 +106,8 @@ let classify_vernac e = else GuaranteesOpacity in let ids, open_proof = - List.fold_left (fun (l,b) ((({v=id},_),_,_,_,p),_) -> - id::l, b || p = None) ([],false) l in + List.fold_left (fun (l,b) {Vernacexpr.fname={CAst.v=id}; body_def} -> + id::l, b || body_def = None) ([],false) l in if open_proof then VtStartProof (guarantee,ids) else VtSideff (ids, VtLater) @@ -118,8 +118,8 @@ let classify_vernac e = else GuaranteesOpacity in let ids, open_proof = - List.fold_left (fun (l,b) ((({v=id},_),_,_,p),_) -> - id::l, b || p = None) ([],false) l in + List.fold_left (fun (l,b) { Vernacexpr.fname={CAst.v=id}; body_def } -> + id::l, b || body_def = None) ([],false) l in if open_proof then VtStartProof (guarantee,ids) else VtSideff (ids, VtLater) |