src/Pure/Syntax/ast.ML

--- a/src/Pure/Syntax/ast.ML	Sat Dec 07 23:08:51 2024 +0100
+++ b/src/Pure/Syntax/ast.ML	Sat Dec 07 23:50:18 2024 +0100
@@ -89,7 +89,7 @@
 fun pretty_var x =
   (case Term_Position.decode x of
     [] => Pretty.str x
-  | ps => Term_Position.pretty ps);
+  | ps => Term_Position.pretty (map #pos ps));
 
 fun pretty_ast (Constant a) = Pretty.quote (Pretty.str a)
   | pretty_ast (Variable x) = pretty_var x