diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/trace/smtAtom.ml | 4 | ||||
-rw-r--r-- | src/trace/smtAtom.mli | 2 |
2 files changed, 1 insertions, 5 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 diff --git a/src/trace/smtAtom.mli b/src/trace/smtAtom.mli index a6a1761..f076cb8 100644 --- a/src/trace/smtAtom.mli +++ b/src/trace/smtAtom.mli @@ -121,8 +121,6 @@ module Atom : val to_smt : Format.formatter -> t -> unit - exception NotWellTyped of atom - type reify_tbl val create : unit -> reify_tbl |