# HG changeset patch
# User aspinall
# Date 1165184741 -3600
# Node ID 2cc00b360b2c0fbe18743a057c82f345d9534ec4
# Parent  d1ca26a2b91821975e510e0d9bbd57c6a8146266
Minor.

diff -r d1ca26a2b918 -r 2cc00b360b2c src/Pure/proof_general.ML
--- a/src/Pure/proof_general.ML	Sun Dec 03 23:21:55 2006 +0100
+++ b/src/Pure/proof_general.ML	Sun Dec 03 23:25:41 2006 +0100
@@ -468,7 +468,6 @@
 
 val spaces_quote = space_implode " " o map quote;
 
-(* FIXME: investigate why dependencies at the moment include themselves! *)
 fun thm_deps_message (thms, deps) =
   if pgip() then
     issue_pgips
@@ -479,6 +478,7 @@
          XML.element "value" [("name", "deps")] [XML.text deps]]]
   else emacs_notify ("Proof General, theorem dependencies of " ^ thms ^ " are " ^ deps);
 
+(* FIXME: check this uses non-transitive closure function here *)
 fun tell_thm_deps ths = conditional (Output.has_mode thm_depsN) (fn () =>
   let
     val names = filter_out (equal "") (map Thm.name_of_thm ths);
@@ -1197,8 +1197,6 @@
   val objtype_attro = xmlattro "objtype"
   val objtype_attr = xmlattr "objtype"
   val name_attr = xmlattr "name"
-  val dirname_attr = xmlattr "dir"
-  fun comment x = "(* " ^ x ^ " *)"
 
   fun localfile_of_url url = (* only handle file:/// or file://localhost/ *)
       case Url.unpack url of
@@ -1215,7 +1213,7 @@
   (* Path management: we allow theory files to have dependencies
      in their own directory, but when we change directory for a new
      file we remove the path.  Leaving it there can cause confusion
-     with difference in batch mode.a  NB: PGIP does not assume
+     with difference in batch mode. NB: PGIP does not currently assume
      that the prover has a load path. *)
   local
       val current_working_dir = ref (NONE : string option)