diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2012-02-08 18:00:57 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2012-02-08 18:00:57 +0000 |
commit | b794252aab2673cc60ecbfcc8fe8bf454e5468ea (patch) | |
tree | a255cf77a33ed2481c1e8e0fcc1a2f30dd4c1895 /hol-light | |
parent | af00bfad9b14dd182259d376f11ad7af046d4444 (diff) |
Abort attempt to use special exception printing
Diffstat (limited to 'hol-light')
-rw-r--r-- | hol-light/hol-light.el | 2 | ||||
-rw-r--r-- | hol-light/pg_prompt.ml | 5 |
2 files changed, 6 insertions, 1 deletions
diff --git a/hol-light/hol-light.el b/hol-light/hol-light.el index 4b366f6c..18192ed1 100644 --- a/hol-light/hol-light.el +++ b/hol-light/hol-light.el @@ -114,7 +114,7 @@ You need to restart Emacs if you change this setting." "Value for `proof-shell-error-regexp' with standard top level.") (defconst hol-light-annotated-error-regexp - ;; "<error>.+</error>" ;; FIXME: include new lines, also fix pg_prompt.ml + ;; "<error>.+</error>" ;; unfortunately not enough, this is only for failwith hol-light-plain-error-regexp "Value for `proof-shell-error-regexp' with custom top level.") diff --git a/hol-light/pg_prompt.ml b/hol-light/pg_prompt.ml index 0ae28992..b14c01ca 100644 --- a/hol-light/pg_prompt.ml +++ b/hol-light/pg_prompt.ml @@ -43,6 +43,9 @@ let original_prompt_fn = !Toploop.read_interactive_input in (* Adjust error printing to markup error messages *) (* ------------------------------------------------------------------------- *) +(* Doesn't really work, as many errors are from OCaml top level and + not printed in this way. + let print_exn e = match e with Failure x -> Format.print_string @@ -52,3 +55,5 @@ let print_exn e = | _ -> Format.print_string (Printexc.to_string e);; #install_printer print_exn;; + +*) |