changeset 27872 | 631371a02b8c |
parent 27855 | b1bf607e06c2 |
child 28424 | fc6ce1c4d5b7 |
--- a/src/Pure/Isar/outer_syntax.ML Thu Aug 14 19:52:36 2008 +0200 +++ b/src/Pure/Isar/outer_syntax.ML Thu Aug 14 19:52:37 2008 +0200 @@ -172,7 +172,7 @@ src |> T.source_proper |> Source.source T.stopper - (Scan.bulk (P.$$$ "--" -- P.!!! P.text >> K NONE || P.not_eof >> SOME)) + (Scan.bulk (P.$$$ "--" -- P.!!! P.doc_source >> K NONE || P.not_eof >> SOME)) (Option.map recover do_recover) |> Source.map_filter I |> Source.source T.stopper