summaryrefslogtreecommitdiff
path: root/compiler/SymbolicToPure.ml
diff options
context:
space:
mode:
authorSon Ho2024-03-29 15:36:18 +0100
committerSon Ho2024-03-29 15:36:18 +0100
commitea086d3391f6086573750f989256119e5d2e7d5c (patch)
treed202a91a6c409dca5ca46af7902dee84883d48b7 /compiler/SymbolicToPure.ml
parent8f969634f3f192a9282a21a1ca2a1b6a676984ca (diff)
Cleanup a bit
Diffstat (limited to '')
-rw-r--r--compiler/SymbolicToPure.ml3
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/SymbolicToPure.ml b/compiler/SymbolicToPure.ml
index aeb03c34..ccb4f585 100644
--- a/compiler/SymbolicToPure.ml
+++ b/compiler/SymbolicToPure.ml
@@ -2892,8 +2892,7 @@ and translate_expansion (p : S.mplace option) (sv : V.symbolic_value)
^ pure_ty_to_string ctx true_e.ty
^ "\n\nfalse_e.ty: "
^ pure_ty_to_string ctx false_e.ty));
- save_error __FILE__ __LINE__ ~b:(ty = false_e.ty) (Some ctx.fun_decl.meta)
- "Internal error, please file an issue";
+ sanity_check __FILE__ __LINE__ (ty = false_e.ty) ctx.fun_decl.meta;
{ e; ty }
| ExpandInt (int_ty, branches, otherwise) ->
let translate_branch ((v, branch_e) : V.scalar_value * S.expression) :