added "Reading thy-File" message
authorclasohm
Thu, 30 Dec 1993 21:04:53 +0100
changeset 207 059e406442fd
parent 206 0d624d1ba9cc
child 208 342f88d2e8ab
added "Reading thy-File" message
src/Pure/Thy/read.ML
--- a/src/Pure/Thy/read.ML	Thu Dec 30 10:18:23 1993 +0100
+++ b/src/Pure/Thy/read.ML	Thu Dec 30 21:04:53 1993 +0100
@@ -249,7 +249,8 @@
        else
        (
          if thy_uptodate orelse thy_file = "" then ()
-         else (read_thy thyl thy_file;
+         else (writeln ("Reading thy-file \"" ^ thyl ^ ".thy\"");
+               read_thy thyl thy_file;
                use (out_name thyl)
               );