removed debugging junk
authorblanchet
Thu, 18 Sep 2014 18:49:58 +0200
changeset 58381 0e8d82e95dd2
parent 58380 14404f6b760c
child 58382 2ee61d28c667
removed debugging junk
src/HOL/Tools/Old_Datatype/old_size.ML
--- a/src/HOL/Tools/Old_Datatype/old_size.ML	Thu Sep 18 17:54:56 2014 +0200
+++ b/src/HOL/Tools/Old_Datatype/old_size.ML	Thu Sep 18 18:49:58 2014 +0200
@@ -214,7 +214,6 @@
     val no_size = exists (fn (_, (_, _, constrs)) => exists (fn (_, cargs) => exists (fn dt =>
       Old_Datatype_Aux.is_rec_type dt andalso
         not (null (fst (Old_Datatype_Aux.strip_dtyp dt)))) cargs) constrs) descr
-val _ = tracing ("NAME: " ^ @{make_string} (name, no_size))(*###*)
   in
     if no_size then thy
     else