| changeset 70498 | de75eea6ffc8 |
| parent 69348 | f0aef5e337a2 |
| child 71465 | 910a081cca74 |
--- 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 *)