equal
deleted
inserted
replaced
89 val output_syms = output_symbols o Symbol.explode; |
89 val output_syms = output_symbols o Symbol.explode; |
90 |
90 |
91 val output_syms_antiqs = |
91 val output_syms_antiqs = |
92 Antiquote.scan_antiquotes #> map |
92 Antiquote.scan_antiquotes #> map |
93 (fn Antiquote.Text s => output_syms s |
93 (fn Antiquote.Text s => output_syms s |
94 | Antiquote.Antiq (s, _) => enclose "%\n\\isaantiq\n" "%\n\\endisaantiq\n" (output_syms s) |
94 | Antiquote.Antiq ((s, _), _) => enclose "%\n\\isaantiq\n" "%\n\\endisaantiq\n" (output_syms s) |
95 | Antiquote.Open _ => "{\\isaantiqopen}" |
95 | Antiquote.Open _ => "{\\isaantiqopen}" |
96 | Antiquote.Close _ => "{\\isaantiqclose}") #> |
96 | Antiquote.Close _ => "{\\isaantiqclose}") #> |
97 implode; |
97 implode; |
98 |
98 |
99 end; |
99 end; |