1.1 --- a/src/Pure/Thy/thy_output.ML	Thu Aug 07 19:21:42 2008 +0200
     1.2 +++ b/src/Pure/Thy/thy_output.ML	Thu Aug 07 19:21:43 2008 +0200
     1.3 @@ -148,8 +148,8 @@
     1.4  fun eval_antiquote lex node (str, pos) =
     1.5    let
     1.6      fun expand (Antiquote.Text s) = s
     1.7 -      | expand (Antiquote.Antiq (x, _)) =
     1.8 -          let val (opts, src) = Antiquote.read_arguments lex antiq x in
     1.9 +      | expand (Antiquote.Antiq x) =
    1.10 +          let val (opts, src) = Antiquote.read_antiq lex antiq x in
    1.11              options opts (fn () => command src node) ();  (*preview errors!*)
    1.12              PrintMode.with_modes (! modes @ Latex.modes)
    1.13                (Output.no_warnings (options opts (fn () => command src node))) ()