Grouper les arguments de Assert_failure.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1555 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02master
parent
1737066bf3
commit
5f13aa1f5e
|
@ -24,7 +24,7 @@ let failwith s = raise(Failure s)
|
|||
let invalid_arg s = raise(Invalid_argument s)
|
||||
|
||||
exception Exit
|
||||
exception Assert_failure of string * int * int
|
||||
exception Assert_failure of (string * int * int)
|
||||
|
||||
(* Comparisons *)
|
||||
|
||||
|
|
|
@ -25,7 +25,7 @@ let failwith s = raise(Failure s)
|
|||
let invalid_arg s = raise(Invalid_argument s)
|
||||
|
||||
exception Exit
|
||||
exception Assert_failure of string * int * int
|
||||
exception Assert_failure of (string * int * int)
|
||||
|
||||
(* Comparisons *)
|
||||
|
||||
|
|
Loading…
Reference in New Issue