From 8cddc12efdff4fe1742039df493ab5e425a685c4 Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Mon, 12 Oct 2026 11:52:01 -0300
Subject: result fold left

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

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

diff --git a/lib/kernel/Path.ml b/lib/kernel/Path.ml
index 0814b1c..a6879b6 100644
--- a/lib/kernel/Path.ml
+++ b/lib/kernel/Path.ml
@@ -122,13 +122,12 @@ let assoc_all handle changes =
         in
         (* each step derives from the last; only the steps in between are
            ours to release *)
-        List.fold_left
+        Utilities.List.fold_left
           (fun current change ->
-            let* current = current in
             let* next = assoc_on current change in
             if current != node then Handle.release current;
             Ok next )
-          (Ok node)
+          node
           (children @ List.map (fun (_, key, value) -> key, value) here)
   in
   apply [] handle changes
-- 
cgit v1.2.3