cartouche within antiquotation;
authorwenzelm
Sun, 19 Jan 2014 20:53:40 +0100
changeset 55046 9e83995c8e98
parent 55045 99056d23e05b
child 55047 660398f1d806
cartouche within antiquotation;
src/Pure/General/antiquote.ML
--- a/src/Pure/General/antiquote.ML	Sun Jan 19 20:52:57 2014 +0100
+++ b/src/Pure/General/antiquote.ML	Sun Jan 19 20:53:40 2014 +0100
@@ -50,6 +50,7 @@
 
 val scan_ant =
   Scan.trace (Symbol_Pos.scan_string_qq err_prefix || Symbol_Pos.scan_string_bq err_prefix) >> #2 ||
+  Scan.trace (Symbol_Pos.scan_cartouche (fn s => Symbol_Pos.!!! (fn () => err_prefix ^ s))) >> #2 ||
   Scan.one (fn (s, _) => s <> "}" andalso Symbol.is_regular s) >> single;
 
 in