src/HOL/Import/shuffler.ML
changeset 14848 83f1dc18f1f1
parent 14818 ad83019a66a4
child 14854 61bdf2ae4dc5
     1.1 --- a/src/HOL/Import/shuffler.ML	Sat May 29 16:50:53 2004 +0200
     1.2 +++ b/src/HOL/Import/shuffler.ML	Mon May 31 08:53:23 2004 +0200
     1.3 @@ -58,8 +58,8 @@
     1.4  (*Prints an exception, then fails*)
     1.5  fun print_sign_exn sign e = (print_sign_exn_unit sign e; raise e)
     1.6  
     1.7 -val string_of_thm = Library.setmp print_mode [] (Output.output o string_of_thm);
     1.8 -val string_of_cterm = Library.setmp print_mode [] (Output.output o string_of_cterm);
     1.9 +val string_of_thm = Library.setmp print_mode [] string_of_thm;
    1.10 +val string_of_cterm = Library.setmp print_mode [] string_of_cterm;
    1.11  
    1.12  fun mk_meta_eq th =
    1.13      (case concl_of th of