diff options
| author | Son Ho | 2022-01-27 18:37:51 +0100 |
|---|---|---|
| committer | Son Ho | 2022-01-27 18:37:51 +0100 |
| commit | ea254c8af48ad5b4efd56624de40a9cb42452dd2 (patch) | |
| tree | e1fa356b2437e9846de3095b8ba68cbc823656d2 /src/SymbolicToPure.ml | |
| parent | 46390b3ea190b6307c87f10df1c375d5b30c6b52 (diff) | |
Make minor modifications
Diffstat (limited to '')
| -rw-r--r-- | src/SymbolicToPure.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/SymbolicToPure.ml b/src/SymbolicToPure.ml index 420c7eda..53073563 100644 --- a/src/SymbolicToPure.ml +++ b/src/SymbolicToPure.ml @@ -892,7 +892,7 @@ let get_abs_ancestors (ctx : bs_ctx) (abs : V.abs) : S.call * V.abs list = let rec translate_expression (e : S.expression) (ctx : bs_ctx) : expression = match e with | S.Return opt_v -> translate_return opt_v ctx - | Panic -> Panic + | Panic -> Fail | FunCall (call, e) -> translate_function_call call e ctx | EndAbstraction (abs, e) -> translate_end_abstraction abs e ctx | Expansion (sv, exp) -> translate_expansion sv exp ctx |