tuned message;
authorwenzelm
Sat, 10 Aug 2019 10:31:56 +0200
changeset 70498 de75eea6ffc8
parent 70497 8a19b92ec3d6
child 70499 f389019024ce
tuned message;
src/Pure/General/position.ML
--- a/src/Pure/General/position.ML	Sat Aug 10 10:26:21 2019 +0200
+++ b/src/Pure/General/position.ML	Sat Aug 10 10:31:56 2019 +0200
@@ -242,7 +242,7 @@
     else s1 ^ Markup.markup (Markup.properties props Markup.position) s2
   end;
 
-val here_list = implode o map here;
+val here_list = map here #> distinct (op =) #> implode;
 
 
 (* range *)