Grouper les arguments de Assert_failure.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1555 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1997-05-15 13:26:56 +00:00
parent 1737066bf3
commit 5f13aa1f5e
2 changed files with 2 additions and 2 deletions

View File

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

View File

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