diff options
author | Son Ho | 2023-01-06 01:10:51 +0100 |
---|---|---|
committer | Son HO | 2023-02-03 11:21:46 +0100 |
commit | a2e52dd8e4f53600c74744026aeae15d99d104b0 (patch) | |
tree | ad5c81fd1e9763955d1c8250d3dc730f39f678d5 /compiler/Interpreter.ml | |
parent | 852ee63cb876d419d4830eb5192604d58b07b495 (diff) |
Fix an issue with the translation of loops::clear
Diffstat (limited to '')
-rw-r--r-- | compiler/Interpreter.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/Interpreter.ml b/compiler/Interpreter.ml index ea61e2b2..c87aa6f2 100644 --- a/compiler/Interpreter.ml +++ b/compiler/Interpreter.ml @@ -261,9 +261,8 @@ let evaluate_function_symbolic_synthesize_backward_from_return } ]} *) - match C.ctx_find_abs ctx pred with - | Some abs -> (abs.abs_id, false) - | None -> (fun_abs_id, true) + let abs = Option.get (C.ctx_find_abs ctx pred) in + (abs.abs_id, false) in log#ldebug (lazy |