diff options
Diffstat (limited to 'lib/kernel/Path.ml')
| -rw-r--r-- | lib/kernel/Path.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/kernel/Path.ml b/lib/kernel/Path.ml index 4859584..24d3d10 100644 --- a/lib/kernel/Path.ml +++ b/lib/kernel/Path.ml @@ -120,7 +120,7 @@ let assoc_all handle changes = in (* each step derives from the last; only the steps in between are ours to release *) - Utilities.List.fold_left + Utilities.List.foldm_left (fun current change -> let* next = assoc_on current change in if current != node then Handle.release current; |