From 38e60910a40a4b009db87049f11563f55d88b20f Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Sat, 31 Oct 2026 00:51:06 -0300
Subject: beam subsystem hack for karuta execution under internal node

---
 lib/kernel/Initialization.ml | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'lib/kernel/Initialization.ml')

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)
-- 
cgit v1.2.3