diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-12 11:52:01 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-12 11:52:01 -0300 |
| commit | 8cddc12efdff4fe1742039df493ab5e425a685c4 (patch) | |
| tree | ed06a2c30307a7f6c16d37622c343b29dc5928e0 /lib/kernel/Initialization.ml | |
| parent | a3acc318ead5620ac20f70815b4dfb0810ccd2a4 (diff) | |
| download | RNT-8cddc12efdff4fe1742039df493ab5e425a685c4.tar.gz RNT-8cddc12efdff4fe1742039df493ab5e425a685c4.zip | |
result fold left
Diffstat (limited to '')
| -rw-r--r-- | lib/kernel/Initialization.ml | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/lib/kernel/Initialization.ml b/lib/kernel/Initialization.ml index 518fe4f..bcafce6 100644 --- a/lib/kernel/Initialization.ml +++ b/lib/kernel/Initialization.ml @@ -14,15 +14,7 @@ let bind namespace (name, handle) = let namespace entries = let into = Namespace.make () in - let open Utilities.Result in - let* () = - List.fold_left - (fun acc entry -> - let* () = acc in - bind into entry ) - (Ok ()) entries - in - Ok into + Utilities.List.fold_left (fun () -> bind into) () entries |> Result.map (fun () -> into) (* A subsystem's root holds what is its own and not data: its evaluators, and whatever else it registers beside them. *) |