diff options
Diffstat (limited to '')
| -rw-r--r-- | src/Utils.ml (renamed from src/Utilities.ml) | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/Utilities.ml b/src/Utils.ml index 6452d56f..16ee7252 100644 --- a/src/Utilities.ml +++ b/src/Utils.ml @@ -1,7 +1,7 @@ (* Split a list at a given index [i] (the first list contains all the elements up to element of index [i], not included, the second one contains the remaining elements. Note that the first returned list has length [i]. - *) +*) let rec list_split_at (ls : 'a list) (i : int) = if i < 0 then raise (Invalid_argument "list_split_at take positive integers") else if i = 0 then ([], ls) @@ -14,3 +14,10 @@ let rec list_split_at (ls : 'a list) (i : int) = | x :: ls' -> let ls1, ls2 = list_split_at ls' (i - 1) in (x :: ls1, ls2) + +exception Found +(** Utility exception + + When looking for something while exploring a term, it can be easier to + just throw an exception to signal we found what we were looking for. + *) |