diff options
author | Jason Gross <jgross@mit.edu> | 2017-05-31 00:49:36 -0400 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2017-06-02 20:04:34 -0400 |
commit | 42d510ceea82d617ac4e630049d690acbe900688 (patch) | |
tree | d68ae2fa7b0815c3d5164b2410e534befbe48039 /proofs/pfedit.ml | |
parent | a2a98a4015311af83edcf8fc87aa30a5318bead8 (diff) |
Don't double up on periods in anomalies
We don't want "Anomaly: Returned a functional value in a type not
recognized as a product type.. Please report at
http://coq.inria.fr/bugs/." but instead "Anomaly: Returned a functional
value in a type not recognized as a product type. Please report at
http://coq.inria.fr/bugs/."
Diffstat (limited to 'proofs/pfedit.ml')
-rw-r--r-- | proofs/pfedit.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml index aaceb7b76..29939294f 100644 --- a/proofs/pfedit.ml +++ b/proofs/pfedit.ml @@ -50,7 +50,7 @@ let cook_this_proof p = match p with | { Proof_global.id;entries=[constr];persistence;universes } -> (id,(constr,universes,persistence)) - | _ -> CErrors.anomaly ~label:"Pfedit.cook_proof" (Pp.str "more than one proof term.") + | _ -> CErrors.anomaly ~label:"Pfedit.cook_proof" (Pp.str "more than one proof term") let cook_proof () = cook_this_proof (fst |