diff options
| author | Pierre-Marie Pédrot | 2018-05-24 01:05:09 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-05-24 01:05:09 +0200 |
| commit | 9df6df865fc71ed9840fc569d3aa3cc7cf4750aa (patch) | |
| tree | 8965b5d9bc37bc7d0be341dc311fef6df43c3616 /stm | |
| parent | b74d9500e5943317f1baf4f36b3d979d40f6105f (diff) | |
| parent | b4b515c2e61bc6ea662b48e84eb319ec8252b07d (diff) | |
Merge PR #6515: [api] Move `Vernacexpr` to parsing.
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/stm.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index 6b92e47378..b8fe8ddd78 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -1511,7 +1511,7 @@ end = struct (* {{{ *) stm_vernac_interp stop ~proof:(pobject, terminator) st { verbose = false; loc; indentation = 0; strlen = 0; - expr = VernacExpr ([], VernacEndProof (Proved (Opaque,None))) }) in + expr = VernacExpr ([], VernacEndProof (Proved (Proof_global.Opaque,None))) }) in ignore(Future.join checked_proof); end; (* STATE: Restore the state XXX: handle exn *) @@ -1661,7 +1661,7 @@ end = struct (* {{{ *) let st = Vernacstate.freeze_interp_state `No in ignore(stm_vernac_interp stop ~proof st { verbose = false; loc; indentation = 0; strlen = 0; - expr = VernacExpr ([], VernacEndProof (Proved (Opaque,None))) }); + expr = VernacExpr ([], VernacEndProof (Proved (Proof_global.Opaque,None))) }); `OK proof end with e -> @@ -2121,7 +2121,7 @@ let collect_proof keep cur hd brkind id = | id :: _ -> Names.Id.to_string id in let loc = (snd cur).loc in let is_defined_expr = function - | VernacEndProof (Proved (Transparent,_)) -> true + | VernacEndProof (Proved (Proof_global.Transparent,_)) -> true | _ -> false in let is_defined = function | _, { expr = e } -> is_defined_expr (Vernacprop.under_control e) |