# HG changeset patch
# User wenzelm
# Date 1237751387 -3600
# Node ID 0c9f9c49d5df5a15c78aa7965e7396423ae2ee31
# Parent  72980f8d7ee8174897e5ffe4acc1314e0fa1b8de
simplified Antiquote.read (again);

diff -r 72980f8d7ee8 -r 0c9f9c49d5df src/Pure/Thy/latex.ML
--- a/src/Pure/Thy/latex.ML	Sun Mar 22 20:49:47 2009 +0100
+++ b/src/Pure/Thy/latex.ML	Sun Mar 22 20:49:47 2009 +0100
@@ -117,7 +117,7 @@
     else if T.is_kind T.Verbatim tok then
       let
         val (txt, pos) = T.source_position_of tok;
-        val ants = Antiquote.read (K ()) Antiquote.scan_text (Symbol_Pos.explode (txt, pos), pos);
+        val ants = Antiquote.read (Symbol_Pos.explode (txt, pos), pos);
         val out = implode (map output_syms_antiq ants);
       in enclose "{\\isacharverbatimopen}" "{\\isacharverbatimclose}" out end
     else output_syms s
diff -r 72980f8d7ee8 -r 0c9f9c49d5df src/Pure/Thy/thy_output.ML
--- a/src/Pure/Thy/thy_output.ML	Sun Mar 22 20:49:47 2009 +0100
+++ b/src/Pure/Thy/thy_output.ML	Sun Mar 22 20:49:47 2009 +0100
@@ -156,7 +156,7 @@
           end
       | expand (Antiquote.Open _) = ""
       | expand (Antiquote.Close _) = "";
-    val ants = Antiquote.read (K ()) Antiquote.scan_text (Symbol_Pos.explode (txt, pos), pos);
+    val ants = Antiquote.read (Symbol_Pos.explode (txt, pos), pos);
   in
     if Toplevel.is_toplevel state andalso not (forall Antiquote.is_text ants) then
       error ("Unknown context -- cannot expand document antiquotations" ^ Position.str_of pos)