diff options
| author | filliatr | 2000-06-21 01:15:42 +0000 |
|---|---|---|
| committer | filliatr | 2000-06-21 01:15:42 +0000 |
| commit | 5378cd45ac34551ea4d265f41b489ff386ea1a49 (patch) | |
| tree | 655fdd402e962863483cdbb40483fcf8b5ab4892 /lib/util.ml | |
| parent | 18ca75a6fbaf2a1238a3a2e36f51f1e1bf1c2c68 (diff) | |
portage EAuto et Ring
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@513 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/util.ml')
| -rw-r--r-- | lib/util.ml | 5 |
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 = |