diff options
Diffstat (limited to 'compiler/Interpreter.ml')
| -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 |