From 6e5e7ec81423da43e11dc5d591474ca8244a58dd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?C=C3=A9dric=20Pasteur?= Date: Tue, 14 Sep 2010 17:15:43 +0200 Subject: [PATCH] Fix numbers in error messages --- compiler/utilities/misc.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/compiler/utilities/misc.ml b/compiler/utilities/misc.ml index 202e098..9e5228c 100644 --- a/compiler/utilities/misc.ml +++ b/compiler/utilities/misc.ml @@ -272,7 +272,7 @@ let _arity_min_error i l = let assert_empty = function | [] -> () - | l -> _arity_error 1 l + | l -> _arity_error 0 l let assert_1 = function | [v] -> v @@ -284,15 +284,15 @@ let assert_1min = function let assert_2 = function | [v1; v2] -> v1, v2 - | l -> _arity_error 1 l + | l -> _arity_error 2 l let assert_2min = function | v1::v2::l -> v1, v2, l - | l -> _arity_min_error 1 l + | l -> _arity_min_error 2 l let assert_3 = function | [v1; v2; v3] -> v1, v2, v3 - | l -> _arity_error 1 l + | l -> _arity_error 3 l exception Cannot_find_file of string