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