diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-01-19 16:52:04 +0100 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-01-20 15:21:26 +0100 |
| commit | 13ef3c9a4161db85f10c9c5305e44b8ca66f2eaf (patch) | |
| tree | 1e535d2b045f18ac51ba61483bd0614b95c3ce22 | |
| parent | cbef33066dd526516c03474ffb35457047093808 (diff) | |
Fixing Not_found on unknown bullet behavior.
| -rw-r--r-- | proofs/proof_global.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml index c32e02344..46f0db5fe 100644 --- a/proofs/proof_global.ml +++ b/proofs/proof_global.ml @@ -623,7 +623,10 @@ module Bullet = struct (!current_behavior).name end; optwrite = begin fun n -> - current_behavior := Hashtbl.find behaviors n + current_behavior := + try Hashtbl.find behaviors n + with Not_found -> + Errors.error ("Unknown bullet behavior: \"" ^ n ^ "\".") end } |