# HG changeset patch
# User wenzelm
# Date 1646306427 -3600
# Node ID d6aa59dde5b395359a6050ce9b8935021f8386a8
# Parent  7d680dcd69b1f344c456ee2f182cbf6adb9d235a
tuned signature;

diff -r 7d680dcd69b1 -r d6aa59dde5b3 src/Pure/General/symbol.scala
--- a/src/Pure/General/symbol.scala	Thu Mar 03 12:08:49 2022 +0100
+++ b/src/Pure/General/symbol.scala	Thu Mar 03 12:20:27 2022 +0100
@@ -300,52 +300,59 @@
   val ARGUMENT_CARTOUCHE = "cartouche"
   val ARGUMENT_SPACE_CARTOUCHE = "space_cartouche"
 
-  private lazy val symbols: Interpretation =
+  private lazy val symbols: Interpretation = Interpretation.init()
+
+  private object Interpretation
   {
-    val contents =
-      for (path <- Path.split(Isabelle_System.getenv("ISABELLE_SYMBOLS")) if path.is_file)
-        yield File.read(path)
-    new Interpretation(cat_lines(contents))
-  }
+    def init(): Interpretation =
+    {
+      val contents =
+        for (path <- Path.split(Isabelle_System.getenv("ISABELLE_SYMBOLS")) if path.is_file)
+          yield File.read(path)
+      make(cat_lines(contents))
+    }
 
-  private class Interpretation(symbols_spec: String)
-  {
-    /* read symbols */
+    def make(symbols_spec: String): Interpretation =
+    {
+      val No_Decl = new Regex("""(?xs) ^\s* (?: \#.* )? $ """)
+      val Key = new Regex("""(?xs) (.+): """)
 
-    private val No_Decl = new Regex("""(?xs) ^\s* (?: \#.* )? $ """)
-    private val Key = new Regex("""(?xs) (.+): """)
-
-    private def read_decl(decl: String): (Symbol, Properties.T) =
-    {
-      def err() = error("Bad symbol declaration: " + decl)
+      def read_decl(decl: String): (Symbol, Properties.T) =
+      {
+        def err() = error("Bad symbol declaration: " + decl)
 
-      def read_props(props: List[String]): Properties.T =
-      {
-        props match {
-          case Nil => Nil
-          case _ :: Nil => err()
-          case Key(x) :: y :: rest => (x -> y.replace('\u2423', ' ')) :: read_props(rest)
+        def read_props(props: List[String]): Properties.T =
+        {
+          props match {
+            case Nil => Nil
+            case _ :: Nil => err()
+            case Key(x) :: y :: rest => (x -> y.replace('\u2423', ' ')) :: read_props(rest)
+            case _ => err()
+          }
+        }
+        decl.split("\\s+").toList match {
+          case sym :: props if sym.length > 1 && !is_malformed(sym) =>
+            (sym, read_props(props))
           case _ => err()
         }
       }
-      decl.split("\\s+").toList match {
-        case sym :: props if sym.length > 1 && !is_malformed(sym) =>
-          (sym, read_props(props))
-        case _ => err()
-      }
-    }
 
-    private val symbols: List[(Symbol, Properties.T)] =
-      split_lines(symbols_spec).reverse.
-        foldLeft((List.empty[(Symbol, Properties.T)], Set.empty[Symbol])) {
-          case (res, No_Decl()) => res
-          case ((list, known), decl) =>
-            val (sym, props) = read_decl(decl)
-            if (known(sym)) (list, known)
-            else ((sym, props) :: list, known + sym)
-        }._1
+      val symbols: List[(Symbol, Properties.T)] =
+        split_lines(symbols_spec).reverse.
+          foldLeft((List.empty[(Symbol, Properties.T)], Set.empty[Symbol])) {
+            case (res, No_Decl()) => res
+            case ((list, known), decl) =>
+              val (sym, props) = read_decl(decl)
+              if (known(sym)) (list, known)
+              else ((sym, props) :: list, known + sym)
+          }._1
 
+      new Interpretation(symbols)
+    }
+  }
 
+  private class Interpretation(symbols: List[(Symbol, Properties.T)])
+  {
     /* basic properties */
 
     val properties: Map[Symbol, Properties.T] = symbols.toMap