diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-31 00:51:06 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-31 00:51:06 -0300 |
| commit | 38e60910a40a4b009db87049f11563f55d88b20f (patch) | |
| tree | 9e2bbb5ecbce210b561b38447ef658bc227cfd96 /lib/kernel/Initialization.ml | |
| parent | 8c2f0db7337328570af57461a3d95203537ac185 (diff) | |
| download | RNT-master.tar.gz RNT-master.zip | |
Diffstat (limited to '')
| -rw-r--r-- | lib/kernel/Initialization.ml | 5 | ||||
| -rw-r--r-- | lib/kernel/Initialization.mli | 5 |
2 files changed, 4 insertions, 6 deletions
diff --git a/lib/kernel/Initialization.ml b/lib/kernel/Initialization.ml index 54bb76d..86c6882 100644 --- a/lib/kernel/Initialization.ml +++ b/lib/kernel/Initialization.ml @@ -20,12 +20,11 @@ let namespace entries = evaluators, and whatever else it registers beside them. *) let mount root name = match Path.lookup root Path.(name @/ this) with - | Ok mounted -> Ok mounted + | Ok mounted -> Ok (Protocols.Handle.release mounted) | Error _ -> let open Utilities.Result in let* mounted = namespace ["evaluator", Namespace.make ()] in - let* () = bind root (name, mounted) in - Ok mounted + bind root (name, mounted) module Make (S : Abstract.Storage.STORAGE) = struct module BM = BranchManager.Make (S) diff --git a/lib/kernel/Initialization.mli b/lib/kernel/Initialization.mli index a6e6ae0..02db00f 100644 --- a/lib/kernel/Initialization.mli +++ b/lib/kernel/Initialization.mli @@ -1,7 +1,6 @@ (** a subsystem's root, \[name], holding \[name]\evaluator for the - evaluators it registers. Mounting it again gives the one there. *) -val mount : - Protocols.Handle.t -> string -> (Protocols.Handle.t, Concepts.Condition.condition) result + evaluators it registers. Mounting it again keeps the one there. *) +val mount : Protocols.Handle.t -> string -> (unit, Concepts.Condition.condition) result module Make (S : Abstract.Storage.STORAGE) : sig (** the root of the object tree, holding \system: its branches, of |