discontinued somewhat pointless dependency: avoid illusion of extra accuracy (see also 09fb749d1a1e and 0f750a6dc754);
authorwenzelm
Sat, 17 Dec 2022 19:19:10 +0100
changeset 76670 b04d45bebbc5
parent 76669 6f8721d2cacd
child 76671 254964ca1b98
discontinued somewhat pointless dependency: avoid illusion of extra accuracy (see also 09fb749d1a1e and 0f750a6dc754);
src/Pure/ML_Bootstrap.thy
src/Pure/Tools/build.scala
--- a/src/Pure/ML_Bootstrap.thy	Sat Dec 17 19:09:46 2022 +0100
+++ b/src/Pure/ML_Bootstrap.thy	Sat Dec 17 19:19:10 2022 +0100
@@ -8,8 +8,6 @@
 imports Pure
 begin
 
-external_file "$POLYML_EXE"
-
 ML \<open>
   #allStruct ML_Name_Space.global () |> List.app (fn (name, _) =>
     if member (op =) ML_Name_Space.hidden_structures name then
--- a/src/Pure/Tools/build.scala	Sat Dec 17 19:09:46 2022 +0100
+++ b/src/Pure/Tools/build.scala	Sat Dec 17 19:19:10 2022 +0100
@@ -249,13 +249,11 @@
           (_, base) <- build_deps.session_bases.iterator
           (path, _) <- base.session_sources.iterator
         } yield path).toList
-      val exclude_files = List(Path.explode("$POLYML_EXE")).map(_.canonical_file)
-      val unknown_files =
-        Mercurial.check_files(source_files)._2.
-          filterNot(path => exclude_files.contains(path.canonical_file))
-      if (unknown_files.nonEmpty) {
-        progress.echo_warning("Unknown files (not part of the underlying Mercurial repository):" +
-          unknown_files.map(path => path.expand.implode).sorted.mkString("\n  ", "\n  ", ""))
+      Mercurial.check_files(source_files)._2 match {
+        case Nil =>
+        case unknown_files =>
+          progress.echo_warning("Unknown files (not part of the underlying Mercurial repository):" +
+            unknown_files.map(path => path.expand.implode).sorted.mkString("\n  ", "\n  ", ""))
       }
     }