Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Dans message, Uncaught exception -> exception (plus PC) 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4073 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2001-12-03 10:15:57 +00:00
parent a43607ad5c
commit e79a1b8571
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
toplevel/toploop.ml
View File

@ -203,7 +203,7 @@ let print_out_exception ppf exn outv =
| Stack_overflow ->
fprintf ppf "Stack overflow during evaluation (looping recursion?).@."
| _ ->
fprintf ppf "@[Uncaught exception:@ %a.@]@." !print_out_value outv
fprintf ppf "@[Exception:@ %a.@]@." !print_out_value outv
let print_exception_outcome ppf exn =
if exn = Out_of_memory then Gc.full_major ();