# HG changeset patch
# User wenzelm
# Date 769359984 -7200
# Node ID 02b27671b899e403403003778afcbd0f8525b30b
# Parent  674d878719bdf48a73afc192b6eb5487303c847f
thy reader now initialised by init_thy_reader();

diff -r 674d878719bd -r 02b27671b899 src/CTT/ROOT.ML
--- a/src/CTT/ROOT.ML	Thu May 19 16:42:04 1994 +0200
+++ b/src/CTT/ROOT.ML	Thu May 19 17:06:24 1994 +0200
@@ -12,8 +12,7 @@
 
 print_depth 1;  
 
-structure Readthy = ReadthyFUN (structure ThySyn = ThySyn);
-open Readthy;
+init_thy_reader();
 
 use_thy "CTT";
 use "../Provers/typedsimp.ML";
diff -r 674d878719bd -r 02b27671b899 src/Cube/ROOT.ML
--- a/src/Cube/ROOT.ML	Thu May 19 16:42:04 1994 +0200
+++ b/src/Cube/ROOT.ML	Thu May 19 17:06:24 1994 +0200
@@ -9,8 +9,7 @@
 val banner = "Barendregt's Lambda-Cube";
 writeln banner;
 
-structure Readthy = ReadthyFUN (structure ThySyn = ThySyn);
-open Readthy;
+init_thy_reader();
 
 print_depth 1;  
 use_thy "Cube";
diff -r 674d878719bd -r 02b27671b899 src/FOL/ROOT.ML
--- a/src/FOL/ROOT.ML	Thu May 19 16:42:04 1994 +0200
+++ b/src/FOL/ROOT.ML	Thu May 19 17:06:24 1994 +0200
@@ -11,8 +11,7 @@
 
 writeln banner;
 
-structure Readthy = ReadthyFUN (structure ThySyn = ThySyn);
-open Readthy;
+init_thy_reader();
 
 print_depth 1;  
 use_thy "FOL";
diff -r 674d878719bd -r 02b27671b899 src/FOLP/ROOT.ML
--- a/src/FOLP/ROOT.ML	Thu May 19 16:42:04 1994 +0200
+++ b/src/FOLP/ROOT.ML	Thu May 19 17:06:24 1994 +0200
@@ -12,8 +12,7 @@
 
 writeln banner;
 
-structure Readthy = ReadthyFUN (structure ThySyn = ThySyn);
-open Readthy;
+init_thy_reader();
 
 print_depth 1;  
 use_thy "IFOLP";
diff -r 674d878719bd -r 02b27671b899 src/HOLCF/ROOT.ML
--- a/src/HOLCF/ROOT.ML	Thu May 19 16:42:04 1994 +0200
+++ b/src/HOLCF/ROOT.ML	Thu May 19 17:06:24 1994 +0200
@@ -11,9 +11,7 @@
 writeln banner;
 print_depth 1;
 
-structure Readthy = ReadthyFUN (structure ThySyn = ThySyn);
-Readthy.loaded_thys := !loaded_thys;
-open Readthy;
+init_thy_reader();
 
 use_thy "Holcfb";
 use_thy "Void";
diff -r 674d878719bd -r 02b27671b899 src/LK/ROOT.ML
--- a/src/LK/ROOT.ML	Thu May 19 16:42:04 1994 +0200
+++ b/src/LK/ROOT.ML	Thu May 19 17:06:24 1994 +0200
@@ -10,8 +10,7 @@
 val banner = "Classical First-Order Sequent Calculus";
 writeln banner;
 
-structure Readthy = ReadthyFUN (structure ThySyn = ThySyn);
-open Readthy;
+init_thy_reader();
 
 print_depth 1;