--- a/src/HOL/HOL.ML Thu Apr 11 13:41:22 1996 +0200
+++ b/src/HOL/HOL.ML Fri Apr 12 12:41:26 1996 +0200
@@ -357,7 +357,7 @@
fun put (SS_DATA ss) = simpset := ss;
fun get () = SS_DATA (!simpset);
-in add_thydata HOL.thy
+in add_thydata "HOL"
("simpset", ThyMethods {merge = merge, put = put, get = get})
end;
@@ -371,7 +371,7 @@
fun put (DT_DATA ds) = datatypes := ds;
fun get () = DT_DATA (!datatypes);
-in add_thydata HOL.thy
+in add_thydata "HOL"
("datatypes", ThyMethods {merge = merge, put = put, get = get})
end;