summaryrefslogtreecommitdiff
path: root/src/SymbolicToPure.ml
diff options
context:
space:
mode:
authorSon Ho2022-05-01 16:15:54 +0200
committerSon Ho2022-05-01 16:15:54 +0200
commitb664a5b1e4814a1f0105b76d5b5265e095200c3d (patch)
tree8e0cc856451b951483e681de125ff1ce63b18a68 /src/SymbolicToPure.ml
parent3b25cdd34516b1b89f265624003c518922727edc (diff)
Cleanup
Diffstat (limited to '')
-rw-r--r--src/SymbolicToPure.ml4
1 files changed, 1 insertions, 3 deletions
diff --git a/src/SymbolicToPure.ml b/src/SymbolicToPure.ml
index 14a844a1..c0e47ca7 100644
--- a/src/SymbolicToPure.ml
+++ b/src/SymbolicToPure.ml
@@ -1512,9 +1512,7 @@ and translate_expansion (config : config) (p : S.mplace option)
let branches = List.map translate_branch branches in
let otherwise = translate_expression config otherwise ctx in
let pat_ty = Integer int_ty in
- let otherwise_pat : typed_pattern =
- { value = PatVar Dummy; ty = pat_ty }
- in
+ let otherwise_pat : typed_pattern = { value = PatDummy; ty = pat_ty } in
let otherwise : match_branch =
{ pat = otherwise_pat; branch = otherwise }
in