From 24bb5eab738e291ee170f4fd563f39e33f65f37d Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Thu, 17 Sep 2026 03:36:30 +0000 Subject: WIP forsake context --- lib/evaluators/FOL.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib/evaluators/FOL.ml') diff --git a/lib/evaluators/FOL.ml b/lib/evaluators/FOL.ml index 257ea86..b290e0a 100644 --- a/lib/evaluators/FOL.ml +++ b/lib/evaluators/FOL.ml @@ -16,7 +16,7 @@ module Program = Protocols.Program.Make (struct type t = plan end) -let execute context = +let execute = let open Utilities.Result in function | Base relation_handle -> @@ -24,14 +24,14 @@ let execute context = ~finally:(fun () -> Protocols.Handle.release relation_handle) (fun () -> let* enumerable = Protocols.Enumerable.require relation_handle in - Protocols.Enumerable.enumerate enumerable context) + Protocols.Enumerable.enumerate enumerable) | Project (_plan, _attributes) -> failwith "TODO" class evaluator = object (self) inherit Kernel.Lifecycle.null inherit Kernel.Identity.of_id - method invoke ~program context = execute context program + method invoke = execute method protocols : Protocols.Handle.protocol list = [Program.make self] end -- cgit v1.2.3