diff options
author | Stephane Glondu <steph@glondu.net> | 2012-03-27 07:43:43 +0200 |
---|---|---|
committer | Stephane Glondu <steph@glondu.net> | 2012-03-27 07:45:11 +0200 |
commit | 6e34b272d789455a9be589e27ad3a998cf25496b (patch) | |
tree | 57b74c7cbafd705a1ebce7d16cdaec02b704fb44 /toplevel/toplevel.ml | |
parent | 5fe4ac437bed43547b3695664974f492b55cb553 (diff) | |
parent | 2bdcd093b357adb2185518dabbafd1a0b9279044 (diff) |
Remove non-DFSG contentsupstream/8.3.pl4+dfsg
Diffstat (limited to 'toplevel/toplevel.ml')
-rw-r--r-- | toplevel/toplevel.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/toplevel/toplevel.ml b/toplevel/toplevel.ml index 9954ff56..551e5574 100644 --- a/toplevel/toplevel.ml +++ b/toplevel/toplevel.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id: toplevel.ml 14641 2011-11-06 11:59:10Z herbelin $ *) +(* $Id: toplevel.ml 15025 2012-03-09 14:27:07Z glondu $ *) open Pp open Util @@ -274,7 +274,7 @@ let set_prompt prompt = let rec is_pervasive_exn = function | Out_of_memory | Stack_overflow | Sys.Break -> true | Error_in_file (_,_,e) -> is_pervasive_exn e - | Stdpp.Exc_located (_,e) -> is_pervasive_exn e + | Compat.Exc_located (_,e) -> is_pervasive_exn e | DuringCommandInterp (_,e) -> is_pervasive_exn e | _ -> false @@ -290,7 +290,7 @@ let print_toplevel_error exc = in let (locstrm,exc) = match exc with - | Stdpp.Exc_located (loc, ie) -> + | Compat.Exc_located (loc, ie) -> if valid_buffer_loc top_buffer dloc loc then (print_highlight_location top_buffer loc, ie) else @@ -325,7 +325,7 @@ let parse_to_dot = let rec discard_to_dot () = try Gram.Entry.parse parse_to_dot top_buffer.tokens - with Stdpp.Exc_located(_,(Token.Error _|Lexer.Error _)) -> + with Compat.Exc_located(_,(Token.Error _|Lexer.Error _)) -> discard_to_dot() |