mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-21 22:53:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

Update common submodule

Browse Source 
Adds these commits:

  Richard W.M. Jones (5):
      mlstdutils: Modify List.take, List.drop to match OCaml 5.3
      mlstdutils: Rename List.dropwhile -> drop_while, takewhile -> take_while
      mlstdutils: Add List.last function
      mlstdutils: Move List module first
      mlstdutils: Add String.common_prefix, longest_common_prefix
This commit is contained in:
Richard W.M. Jones
2025-05-10 18:29:40 +01:00
parent f6b1a7b57f
commit fcd169476f
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
common

Submodule common updated: aa797fa130...4c7ae1581f

2
contrib/visualize-alignment/tracetops.ml
View File

@@ -185,7 +185,7 @@ let ranges =
loop i0 rest
| (false, i1) :: rest ->
let i1 = i1 - 1 in
let rest = List.dropwhile (function (v, _) -> not v) rest in
let rest = List.drop_while (function (v, _) -> not v) rest in
(match rest with
| [] -> [i0, i1]
| (_, i2) :: rest -> (i0, i1) :: loop i2 rest)