--- a/ROOT.ML Fri May 13 11:14:20 1994 +0200
+++ b/ROOT.ML Thu May 19 17:07:19 1994 +0200
@@ -10,8 +10,7 @@
val banner = "Higher-Order Logic";
writeln banner;
-structure Readthy = ReadthyFUN (structure ThySyn = ThySyn);
-open Readthy;
+init_thy_reader();
print_depth 1;
eta_contract := true;