diff options
| author |  Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-06-06 05:50:07 -0400 |
|---|---|---|
| committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-06-06 14:04:33 -0400 |
| commit | e4d66a03148243f7611f4d7c164e775877184e03 (patch) | |
| tree | 0a2581fd31dc3603db6e333de365f230354544a2 /stm/proofBlockDelimiter.ml | |
| parent | 0307140281395e8ffa16f2af9f946cc53d540b17 (diff) | |
Error box detection run only on error
Advantage: 0 cost if no error occurs
Disadvantage: a box *must* end with the error absorbing command
Diffstat (limited to 'stm/proofBlockDelimiter.ml')
| -rw-r--r-- | stm/proofBlockDelimiter.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/stm/proofBlockDelimiter.ml b/stm/proofBlockDelimiter.ml index 7dec43d1a..ed8553d4b 100644 --- a/stm/proofBlockDelimiter.ml +++ b/stm/proofBlockDelimiter.ml @@ -23,6 +23,8 @@ val crawl : val unit_val : Stm.DynBlockData.t val of_bullet_val : Vernacexpr.bullet -> Stm.DynBlockData.t val to_bullet_val : Stm.DynBlockData.t -> Vernacexpr.bullet +val of_vernac_expr_val : Vernacexpr.vernac_expr -> Stm.DynBlockData.t +val to_vernac_expr_val : Stm.DynBlockData.t -> Vernacexpr.vernac_expr end = struct @@ -30,6 +32,7 @@ let unit_tag = DynBlockData.create "unit" let unit_val = DynBlockData.Easy.inj () unit_tag let of_bullet_val, to_bullet_val = DynBlockData.Easy.make_dyn "bullet" +let of_vernac_expr_val, to_vernac_expr_val = DynBlockData.Easy.make_dyn "vernac_expr" let simple_goal sigma g gs = let open Evar in |