diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-09-17 03:36:30 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-09-17 03:36:40 +0000 |
| commit | 24bb5eab738e291ee170f4fd563f39e33f65f37d (patch) | |
| tree | 701a4a30a42b1cb06e7ef126c41b7cc61315873d /lib/evaluators/FOL.ml | |
| parent | 272ac23caa835faede38156699b40f884ad2ed11 (diff) | |
| download | RNT-24bb5eab738e291ee170f4fd563f39e33f65f37d.tar.gz RNT-24bb5eab738e291ee170f4fd563f39e33f65f37d.zip | |
WIP forsake context
Diffstat (limited to '')
| -rw-r--r-- | lib/evaluators/FOL.ml | 6 |
1 files changed, 3 insertions, 3 deletions
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 |