jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Fix numbers in error messages

Browse source
This commit is contained in:
Cédric Pasteur 2010-09-14 17:15:43 +02:00
parent cae8d39f3d
commit 6e5e7ec814
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
compiler/utilities/misc.ml
View file

@ -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