src/Pure/term.ML
changeset 62529 8b7bdfc09f3b
parent 61655 f217bbe4e93e
child 63611 fb63942e470e
equal deleted inserted replaced
62528:c8c532b22947 62529:8b7bdfc09f3b
   984 fun string_of_vname (x, i) =
   984 fun string_of_vname (x, i) =
   985   let
   985   let
   986     val idx = string_of_int i;
   986     val idx = string_of_int i;
   987     val dot =
   987     val dot =
   988       (case rev (Symbol.explode x) of
   988       (case rev (Symbol.explode x) of
   989         _ :: "\\<^sub>" :: _ => false
   989         _ :: "\<^sub>" :: _ => false
   990       | c :: _ => Symbol.is_digit c
   990       | c :: _ => Symbol.is_digit c
   991       | _ => true);
   991       | _ => true);
   992   in
   992   in
   993     if dot then "?" ^ x ^ "." ^ idx
   993     if dot then "?" ^ x ^ "." ^ idx
   994     else if i <> 0 then "?" ^ x ^ idx
   994     else if i <> 0 then "?" ^ x ^ idx