src/Pure/ProofGeneral/proof_general_emacs.ML
changeset 37949 48a874444164
parent 37239 54b444874be1
child 37950 bc285d91041e
--- a/src/Pure/ProofGeneral/proof_general_emacs.ML	Fri Jul 23 18:42:46 2010 +0200
+++ b/src/Pure/ProofGeneral/proof_general_emacs.ML	Sat Jul 24 12:14:53 2010 +0200
@@ -137,7 +137,7 @@
     val name = thy_name file;
     val _ = name = "" andalso error ("Bad file name: " ^ quote file);
     val _ =
-      if Thy_Info.check_known_thy name then
+      if Thy_Info.known_thy name then
         (Isar.>> (Toplevel.commit_exit Position.none);
             Thy_Info.touch_child_thys name; Thy_Info.register_thy name)
           handle ERROR msg =>