# HG changeset patch
# User wenzelm
# Date 1459525301 -7200
# Node ID 2948681ea85f83bb975d940b1f4d1e43cd356dbd
# Parent  e08c44eed27fa4db2bfa487d4aa7e63228a591a4
clarified end position;

diff -r e08c44eed27f -r 2948681ea85f src/Pure/General/position.ML
--- a/src/Pure/General/position.ML	Fri Apr 01 17:37:46 2016 +0200
+++ b/src/Pure/General/position.ML	Fri Apr 01 17:41:41 2016 +0200
@@ -51,9 +51,9 @@
   val here_list: T list -> string
   type range = T * T
   val no_range: range
+  val reset_range: T -> T
   val range_position: range -> T
   val range: T * T -> range
-  val reset_range: T -> T
   val range_of_properties: Properties.T -> range
   val properties_of_range: range -> Properties.T
   val thread_data: unit -> T
@@ -223,10 +223,9 @@
 
 val no_range = (none, none);
 
+fun reset_range (Pos ((i, j, _), props)) = Pos ((i, j, 0), props);
 fun range_position (Pos ((i, j, _), props), Pos ((_, j', _), _)) = Pos ((i, j, j'), props);
-fun range (pos, pos') = (range_position (pos, pos'), pos');
-
-fun reset_range (Pos ((i, j, _), props)) = Pos ((i, j, 0), props);
+fun range (pos, pos') = (range_position (pos, pos'), reset_range pos');
 
 fun range_of_properties props =
   let