diff options
Diffstat (limited to 'src/trace/smtAtom.ml')
| -rw-r--r-- | src/trace/smtAtom.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/trace/smtAtom.ml b/src/trace/smtAtom.ml index b1762dc..c20a75d 100644 --- a/src/trace/smtAtom.ml +++ b/src/trace/smtAtom.ml @@ -761,8 +761,6 @@ module Atom = HashAtom.clear reify.tbl - exception NotWellTyped of atom - let declare reify a = let res = {index = reify.count; hval = a} in HashAtom.add reify.tbl a res; @@ -793,7 +791,7 @@ module Atom = else ( Format.eprintf "Incorrect type: wanted %a, got %a@." SmtBtype.to_smt t SmtBtype.to_smt th; - raise (NotWellTyped a) + failwith (Format.asprintf "Atom %a is not of the expected type" to_smt h) ) in |