diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-10-24 00:20:04 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-10-24 00:20:04 +0000 |
| commit | 0b1c7ca41a6d8ce41b9783153b567c16250913ff (patch) | |
| tree | 5ae47b5738aa53515307500ff4d933384857cb23 /lib/kernel/Initialization.ml | |
| parent | 7689433baac01b6e9f3d7f91bec0ec1b89f15104 (diff) | |
| download | RNT-0b1c7ca41a6d8ce41b9783153b567c16250913ff.tar.gz RNT-0b1c7ca41a6d8ce41b9783153b567c16250913ff.zip | |
`fold_left` -> `foldm_right`
Diffstat (limited to 'lib/kernel/Initialization.ml')
| -rw-r--r-- | lib/kernel/Initialization.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/kernel/Initialization.ml b/lib/kernel/Initialization.ml index bcafce6..54bb76d 100644 --- a/lib/kernel/Initialization.ml +++ b/lib/kernel/Initialization.ml @@ -14,7 +14,7 @@ let bind namespace (name, handle) = let namespace entries = let into = Namespace.make () in - Utilities.List.fold_left (fun () -> bind into) () entries |> Result.map (fun () -> into) + Utilities.List.foldm_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. *) |