src/Pure/PIDE/isar_document.ML
changeset 44182 ecb51b457064
parent 44157 a21d3e1e64fd
child 44185 05641edb5d30
     1.1 --- a/src/Pure/PIDE/isar_document.ML	Sat Aug 13 13:48:26 2011 +0200
     1.2 +++ b/src/Pure/PIDE/isar_document.ML	Sat Aug 13 15:59:26 2011 +0200
     1.3 @@ -25,8 +25,8 @@
     1.4                   [fn ([], []) => Document.Remove,
     1.5                    fn ([], a) => Document.Edits (list (pair (option int) (option int)) a),
     1.6                    fn ([], a) =>
     1.7 -                    Document.Update_Header (Exn.Res (triple string (list string) (list string) a)),
     1.8 -                  fn ([a], []) => Document.Update_Header (Exn.Exn (ERROR a))]))
     1.9 +                    Document.Header (Exn.Res (triple string (list string) (list string) a)),
    1.10 +                  fn ([a], []) => Document.Header (Exn.Exn (ERROR a))]))
    1.11              end;
    1.12  
    1.13        val await_cancellation = Document.cancel_execution state;