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