From e4d66a03148243f7611f4d7c164e775877184e03 Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Mon, 6 Jun 2016 05:50:07 -0400 Subject: Error box detection run only on error Advantage: 0 cost if no error occurs Disadvantage: a box *must* end with the error absorbing command --- stm/proofBlockDelimiter.ml | 3 +++ 1 file changed, 3 insertions(+) (limited to 'stm/proofBlockDelimiter.ml') 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 -- cgit v1.2.3