diff options
Diffstat (limited to 'lib/kernel/Source.ml')
| -rw-r--r-- | lib/kernel/Source.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lib/kernel/Source.ml b/lib/kernel/Source.ml index 16d2b04..f81499c 100644 --- a/lib/kernel/Source.ml +++ b/lib/kernel/Source.ml @@ -74,9 +74,7 @@ let bind root ~within evaluator program = (fun directory -> Path.lookup directory Path.(language @/ this)) |> Result.map_error (fun _ -> Error.no_evaluator evaluator) in - Fun.protect - ~finally:(fun () -> Protocols.Handle.release found) - (fun () -> + Protocols.Handle.releasing found (fun () -> let* found = Protocols.Evaluator.require found in Protocols.Evaluator.invoke found program ~within ) |