author | wenzelm |
Sat, 10 Aug 2019 10:31:56 +0200 | |
changeset 70498 | de75eea6ffc8 |
parent 70497 | 8a19b92ec3d6 |
child 70499 | f389019024ce |
--- 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 *)