src/Pure/System/isabelle_process.ML
changeset 53212 387b9f7cb0ac
parent 53192 04df1d236e1c
child 53709 84522727f9d3
     1.1 --- a/src/Pure/System/isabelle_process.ML	Mon Aug 26 21:53:56 2013 +0200
     1.2 +++ b/src/Pure/System/isabelle_process.ML	Mon Aug 26 21:56:08 2013 +0200
     1.3 @@ -187,6 +187,8 @@
     1.4  
     1.5  val init = uninterruptible (fn _ => fn rendezvous =>
     1.6    let
     1.7 +    val _ = SHA1_Samples.test ()
     1.8 +      handle exn as Fail msg => (Output.physical_stderr (msg ^ "\n"); reraise exn);
     1.9      val _ = Output.physical_stderr Symbol.STX;
    1.10  
    1.11      val _ = Printer.show_markup_default := true;