diff options
| author | Alex Auvolat <alex.auvolat@ansys.com> | 2014-07-04 17:55:50 +0200 |
|---|---|---|
| committer | Alex Auvolat <alex.auvolat@ansys.com> | 2014-07-04 17:55:50 +0200 |
| commit | 3f53be86214bb9a7873a6cf3377c49e5f84d9729 (patch) | |
| tree | 5509b5d0375ae632a7fb5e2cf74e7a4f38a2b897 /libs | |
| parent | 9628140878d0f57bbb37186b00164b80365f9b34 (diff) | |
| parent | 696d07415d52b092c9c69a9b1042a8bc9cd51a90 (diff) | |
| download | scade-analyzer-3f53be86214bb9a7873a6cf3377c49e5f84d9729.tar.gz scade-analyzer-3f53be86214bb9a7873a6cf3377c49e5f84d9729.zip | |
Merge branch 'e-last'
Conflicts:
abstract/abs_interp.ml
tests/source/counters.scade
Diffstat (limited to 'libs')
| -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) |