--- a/src/Pure/Thy/thy_info.ML Fri Oct 24 17:18:00 1997 +0200
+++ b/src/Pure/Thy/thy_info.ML Fri Oct 24 17:18:25 1997 +0200
@@ -84,9 +84,9 @@
(*preloaded theories*)
val loaded_thys =
ref (Symtab.make (map mk_info
- [("ProtoPure", ["Pure", "CPure"], [], Theory.proto_pure),
- ("Pure", [], ["ProtoPure"], Theory.pure),
- ("CPure", [], ["ProtoPure"], Theory.cpure)]));
+ [("ProtoPure", ["Pure", "CPure"], [], ProtoPure.thy),
+ ("Pure", [], ["ProtoPure"], Pure.thy),
+ ("CPure", [], ["ProtoPure"], CPure.thy)]));
(* retrieve info *)