diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-12 11:58:25 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-12 11:58:25 -0300 |
| commit | ad33454a204aa5791445e7d15f02ba0447fff85e (patch) | |
| tree | b1730a9ac5b40ff58ddc23976cd5df5dac924231 /lib/evaluators/FOL.ml | |
| parent | d4f603fa04283efe54c79b5f7664c4c9bc193857 (diff) | |
| download | RNT-ad33454a204aa5791445e7d15f02ba0447fff85e.tar.gz RNT-ad33454a204aa5791445e7d15f02ba0447fff85e.zip | |
relation scan with enumerable and release
Diffstat (limited to '')
| -rw-r--r-- | lib/evaluators/FOL.ml | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/lib/evaluators/FOL.ml b/lib/evaluators/FOL.ml index 92b1c38..050e528 100644 --- a/lib/evaluators/FOL.ml +++ b/lib/evaluators/FOL.ml @@ -118,14 +118,9 @@ let rec modes = |> Result.map (Concepts.Mode.project (BatSet.String.of_list (BatFingerTree.to_list attributes))) -let enumerate relation = - let open Utilities.Result in - let* enumerable = Protocols.Enumerable.require relation in - Protocols.Enumerable.enumerate enumerable - let project description relation = let open Utilities.Result in - let* cursor = enumerate relation in + let* cursor = Protocols.Enumerable.cursor relation in let produce ~yield = let* scan = Protocols.Cursor.require cursor in let rec distinct seen = @@ -168,7 +163,7 @@ let rec execute plan = match plan with | Base relation -> let relation = Protocols.Handle.move relation in - Ok (derive ~decide:(contains relation) relation description modes enumerate) + Ok (derive ~decide:(contains relation) relation description modes Protocols.Enumerable.cursor) | Project (plan, _) -> let* relation = execute plan in Ok (derive relation description modes (project description)) |