clarified (again): Markup.intensify is already part of Variable.markup_fixed for undeclared variable, Markup.fixed is already part of Mariable.markup;
authorwenzelm
Sat, 26 Oct 2024 20:18:51 +0200
changeset 81265 2daa7b2ef46e
parent 81264 6eccae338770
child 81266 8300511f4c45
clarified (again): Markup.intensify is already part of Variable.markup_fixed for undeclared variable, Markup.fixed is already part of Mariable.markup;
src/Pure/Syntax/syntax_phases.ML
--- a/src/Pure/Syntax/syntax_phases.ML	Sat Oct 26 16:07:31 2024 +0200
+++ b/src/Pure/Syntax/syntax_phases.ML	Sat Oct 26 20:18:51 2024 +0200
@@ -54,12 +54,10 @@
 
 fun markup_free ctxt x =
   let
-    val m1 =
-      if Variable.is_fixed ctxt x then Variable.markup_fixed ctxt x
-      else if not (Variable.is_body ctxt) orelse Syntax.is_pretty_global ctxt then Markup.fixed x
-      else Markup.intensify;
+    val strict = Variable.is_body ctxt andalso not (Syntax.is_pretty_global ctxt);
+    val m1 = if Variable.is_fixed ctxt x orelse strict then [Variable.markup_fixed ctxt x] else [];
     val m2 = Variable.markup ctxt x;
-  in [m1, m2] end;
+  in m1 @ [m2] end;
 
 fun markup_var xi = [Markup.name (Term.string_of_vname xi) Markup.var];