diff options
| author | Alex Auvolat <alex.auvolat@ansys.com> | 2014-07-04 11:10:13 +0200 |
|---|---|---|
| committer | Alex Auvolat <alex.auvolat@ansys.com> | 2014-07-04 11:10:13 +0200 |
| commit | 2cbaba6f00d40d5c6c9659678d0156f14b7e3780 (patch) | |
| tree | 2e7638d943387581dda433a9b7ae58f91bcdaa50 /libs/util.ml | |
| parent | 8c8765721b5cb2907182a63c562677447df8caea (diff) | |
| download | scade-analyzer-2cbaba6f00d40d5c6c9659678d0156f14b7e3780.tar.gz scade-analyzer-2cbaba6f00d40d5c6c9659678d0156f14b7e3780.zip | |
Use LAST instead of NEXT (only EDD implementation works at the moment)
Diffstat (limited to 'libs/util.ml')
| -rw-r--r-- | libs/util.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libs/util.ml b/libs/util.ml index 940fe3e..6e8dc59 100644 --- a/libs/util.ml +++ b/libs/util.ml @@ -13,7 +13,7 @@ let rec uniq_sorted = function (* list_fold_op : ('a -> 'a -> 'a) -> 'a list -> 'a *) let rec list_fold_op op = function - | [] -> invalid_arg "list_fold_opt on empty list" + | [] -> invalid_arg "list_fold_op on empty list" | [a] -> a | x::q -> op x (list_fold_op op q) |