diff options
Diffstat (limited to 'lib/util.ml')
| -rw-r--r-- | lib/util.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml index d71912289d..cdd3519301 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -853,6 +853,9 @@ let rec list_skipn n l = match n,l with | _, [] -> failwith "list_skipn" | n, _::l -> list_skipn (pred n) l +let rec list_skipn_at_least n l = + try list_skipn n l with Failure _ -> [] + let rec list_addn n x l = if n = 0 then l else x :: (list_addn (pred n) x l) |