src/Pure/General/position.ML
changeset 62750 3f8f7aa1b11e
parent 62529 8b7bdfc09f3b
child 62797 e08c44eed27f
--- a/src/Pure/General/position.ML	Tue Mar 29 16:20:48 2016 +0200
+++ b/src/Pure/General/position.ML	Tue Mar 29 20:52:19 2016 +0200
@@ -135,7 +135,7 @@
 fun id_only id = Pos ((0, 0, 0), [(Markup.idN, id)]);
 
 fun get_id (Pos (_, props)) = Properties.get props Markup.idN;
-fun put_id id (Pos (count, props)) = Pos (count, Properties.put (Markup.idN, id) props);
+fun put_id id (Pos (count, props)) = Pos (count, norm_props (Properties.put (Markup.idN, id) props));
 
 fun parse_id pos = Option.map Markup.parse_int (get_id pos);