equal
deleted
inserted
replaced
171 |
171 |
172 fun antiquotation src ctxt = |
172 fun antiquotation src ctxt = |
173 let val ((name, _), pos) = Args.dest_src src in |
173 let val ((name, _), pos) = Args.dest_src src in |
174 (case Symtab.lookup (! global_parsers) name of |
174 (case Symtab.lookup (! global_parsers) name of |
175 NONE => error ("Unknown ML antiquotation command: " ^ quote name ^ Position.str_of pos) |
175 NONE => error ("Unknown ML antiquotation command: " ^ quote name ^ Position.str_of pos) |
176 | SOME scan => (ContextPosition.report ctxt (Markup.ML_antiq name) pos; |
176 | SOME scan => (Position.report (Markup.ML_antiq name) pos; |
177 Args.context_syntax "ML antiquotation" (scan pos) src ctxt)) |
177 Args.context_syntax "ML antiquotation" (scan pos) src ctxt)) |
178 end; |
178 end; |
179 |
179 |
180 end; |
180 end; |
181 |
181 |