equal
deleted
inserted
replaced
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 |