diff options
| author | Chantal Keller <Chantal.Keller@inria.fr> | 2020-05-15 17:34:38 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@inria.fr> | 2020-05-15 17:34:38 +0200 |
| commit | 2c553f5537e9bbcceaf488ad164d6178476fb017 (patch) | |
| tree | 546ce6ebcb25c8a876664a027bc37a381612d1a3 /src | |
| parent | 3cb105fdfeb68f5868f4eff58c5f320bf2cdce59 (diff) | |
| download | smtcoq-2c553f5537e9bbcceaf488ad164d6178476fb017.tar.gz smtcoq-2c553f5537e9bbcceaf488ad164d6178476fb017.zip | |
Failure instead of exception when atom is not well-typed
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 |