# HG changeset patch
# User haftmann
# Date 1167908213 -3600
# Node ID 76d3d258cfa366bc5797b1dd7ddbd6567b984c39
# Parent  acfb13e8819e28ba43fceadc4a7b990d9a250410
eliminated Option.app

diff -r acfb13e8819e -r 76d3d258cfa3 src/Pure/Isar/toplevel.ML
--- a/src/Pure/Isar/toplevel.ML	Thu Jan 04 00:12:30 2007 +0100
+++ b/src/Pure/Isar/toplevel.ML	Thu Jan 04 11:56:53 2007 +0100
@@ -319,7 +319,7 @@
 fun print_exn_str NONE = NONE
   | print_exn_str (SOME (exn, s)) = SOME (cat_lines [exn_message exn, s]);
 
-val print_exn_default = Option.app Output.error_msg o print_exn_str
+val print_exn_default = K () o Option.map Output.error_msg o print_exn_str
 
 val print_exn_fn = ref print_exn_default;
 
diff -r acfb13e8819e -r 76d3d258cfa3 src/Pure/ProofGeneral/proof_general_emacs.ML
--- a/src/Pure/ProofGeneral/proof_general_emacs.ML	Thu Jan 04 00:12:30 2007 +0100
+++ b/src/Pure/ProofGeneral/proof_general_emacs.ML	Thu Jan 04 11:56:53 2007 +0100
@@ -110,7 +110,7 @@
   debug_fn := (fn s => decorate (special "362") (special "363") "+++ " s);
   warning_fn := (fn s => decorate (special "362") (special "363") "### " s);
   error_fn := (fn s => decorate "" "" "" s);
-  Toplevel.print_exn_fn := (Option.app (decorate (special "364") (special "365") "*** ") o Toplevel.print_exn_str);
+  Toplevel.print_exn_fn := (K () o Option.map (decorate (special "364") (special "365") "*** ") o Toplevel.print_exn_str);
   panic_fn := (fn s => decorate (special "364") (special "365") "!!! " s));
 
 
diff -r acfb13e8819e -r 76d3d258cfa3 src/Pure/ProofGeneral/proof_general_pgip.ML
--- a/src/Pure/ProofGeneral/proof_general_pgip.ML	Thu Jan 04 00:12:30 2007 +0100
+++ b/src/Pure/ProofGeneral/proof_general_pgip.ML	Thu Jan 04 11:56:53 2007 +0100
@@ -216,7 +216,7 @@
   warning_fn := (fn s => errormsg Nonfatal s);
   panic_fn := (fn s => errormsg Panic s);
   error_fn := (fn s => errormsg Nonfatal s); (* was (fn s => errormsg Fatal s); *)
-  Toplevel.print_exn_fn := (Option.app (errormsg Fatal) o Toplevel.print_exn_str);
+  Toplevel.print_exn_fn := (K () o Option.map (errormsg Fatal) o Toplevel.print_exn_str);
   ())