oops -- fixed profiling;
authorwenzelm
Tue, 19 Jun 2007 23:21:39 +0200
changeset 23428 983cc1dfa6d0
parent 23427 26202f4e663d
child 23429 5a55a9409e57
oops -- fixed profiling;
src/Pure/Isar/toplevel.ML
--- a/src/Pure/Isar/toplevel.ML	Tue Jun 19 23:16:14 2007 +0200
+++ b/src/Pure/Isar/toplevel.ML	Tue Jun 19 23:21:39 2007 +0200
@@ -680,7 +680,7 @@
 
     val (result, opt_exn) =
        state |> (apply_trans int pos trans
-        |> (if ! profiling > 0 then do_profiling andalso not no_timing else I)
+        |> (if ! profiling > 0 andalso not no_timing then do_profiling else I)
         |> (if ! profiling > 0 orelse ! timing andalso not no_timing then do_timing else I));
     val _ =
       if int andalso not (! quiet) andalso exists (member (op =) print) ("" :: ! print_mode)