src/Pure/proof_general.ML
changeset 14880 7586233bd4bd
parent 14827 d973e7f820cb
child 14902 bef0dc694c48
equal deleted inserted replaced
14879:8989eedf72a1 14880:7586233bd4bd
    49 
    49 
    50 fun xsymbols_output s =
    50 fun xsymbols_output s =
    51   if xsymbolsN mem_string ! print_mode andalso exists_string (equal "\\") s then
    51   if xsymbolsN mem_string ! print_mode andalso exists_string (equal "\\") s then
    52     let val syms = Symbol.explode s
    52     let val syms = Symbol.explode s
    53     in (implode (map xsym_output syms), real (Symbol.length syms)) end
    53     in (implode (map xsym_output syms), real (Symbol.length syms)) end
    54   else (s, real (size s));
    54   else Symbol.default_output s;
    55 
    55 
    56 fun pgml_output (s, len) =
    56 fun pgml_output (s, len) =
    57   if pgml () then (XML.text s, len)
    57   if pgml () then (XML.text s, len)
    58   else (s, len);
    58   else (s, len);
    59 
    59