make SML/NJ happy;
authorwenzelm
Fri, 22 Feb 2013 16:52:10 +0100
changeset 51241 83252b0605be
parent 51240 a7a04b449e8b
child 51242 a8e664e4fb5f
make SML/NJ happy;
src/Pure/Isar/toplevel.ML
--- a/src/Pure/Isar/toplevel.ML	Fri Feb 22 14:39:12 2013 +0100
+++ b/src/Pure/Isar/toplevel.ML	Fri Feb 22 16:52:10 2013 +0100
@@ -633,7 +633,7 @@
 
 local
 
-fun timing_message tr t =
+fun timing_message tr (t: Timing.timing) =
   if Timing.is_relevant_time (#elapsed t) andalso not (Position.is_reported (pos_of tr))
   then
     (case approximative_id tr of