From 019baf72464a9c974b6a6128c41928e893a6e197 Mon Sep 17 00:00:00 2001
From: barras
Date: Wed, 6 Feb 2002 12:44:44 +0000
Subject: affichage des messages d'erreur pour Stack_overflow, Out_of_memory,
 Break

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2455 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/toplevel.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/toplevel/toplevel.ml b/toplevel/toplevel.ml
index 972fd22b4e..8bd6ba8e4a 100644
--- a/toplevel/toplevel.ml
+++ b/toplevel/toplevel.ml
@@ -234,8 +234,8 @@ let print_toplevel_error exc =
     | Vernacinterp.Quit -> 
 	raise Vernacinterp.Quit
     | _ -> 
-	(if is_pervasive_exn exc then (mt ()) else locstrm ++
-           Errors.explain_exn exc)
+	(if is_pervasive_exn exc then (mt ()) else locstrm) ++
+        Errors.explain_exn exc
 
 (* Read the input stream until a dot is encountered *)
 let parse_to_dot =
-- 
cgit v1.2.3