src/Pure/Isar/token.ML
changeset 62800 7ac100f86863
parent 62799 46e6f91c4da1
child 62969 9f394a16c557
equal deleted inserted replaced
62799:46e6f91c4da1 62800:7ac100f86863
   673   in (tok, pos') end;
   673   in (tok, pos') end;
   674 
   674 
   675 fun make_string (s, pos) =
   675 fun make_string (s, pos) =
   676   let
   676   let
   677     val Token ((x, _), y, z) = #1 (make ((~1, 0), Symbol_Pos.quote_string_qq s) Position.none);
   677     val Token ((x, _), y, z) = #1 (make ((~1, 0), Symbol_Pos.quote_string_qq s) Position.none);
   678     val pos' = Position.reset_range pos;
   678     val pos' = Position.no_range_position pos;
   679   in Token ((x, (pos', pos')), y, z) end;
   679   in Token ((x, (pos', pos')), y, z) end;
   680 
   680 
   681 fun make_src a args = make_string a :: args;
   681 fun make_src a args = make_string a :: args;
   682 
   682 
   683 
   683