diff options
Diffstat (limited to '')
| -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. *) |