1 files changed, 5 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml
index cc2f514a40..e17e586c20 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -206,6 +206,11 @@ let list_firstn n l =
   in 
   aux [] (n,l)
 
+let rec list_last = function
+  | [] -> failwith "list_last"
+  | [x] -> x
+  | _ :: l -> list_last l
+
 let list_lastn n l =
   let len = List.length l in
   let rec aux m l =