avoid duplicate reports;
authorwenzelm
Wed, 30 Mar 2016 20:35:35 +0200
changeset 62766 70b73465f636
parent 62765 5b95a12b7b19
child 62767 d6b0d35b3aed
avoid duplicate reports;
src/Pure/Syntax/mixfix.ML
--- a/src/Pure/Syntax/mixfix.ML	Wed Mar 30 19:31:28 2016 +0200
+++ b/src/Pure/Syntax/mixfix.ML	Wed Mar 30 20:35:35 2016 +0200
@@ -164,8 +164,8 @@
   let
     fun mk_infix sy ty c p1 p2 p3 range =
       [Syntax_Ext.Mfix
-        (Symbol_Pos.explode0 "op " @ Input.source_explode sy,
-          ty, c, [], 1000, Position.set_range range),
+        (Symbol_Pos.explode0 "op " @ Input.source_explode (Input.reset_pos sy),
+          ty, c, [], 1000, Position.none),
        Syntax_Ext.Mfix
         (Symbol_Pos.explode0 "(_ " @ Input.source_explode sy @ Symbol_Pos.explode0 "/ _)",
           ty, c, [p1, p2], p3, Position.set_range range)];