# HG changeset patch # User wenzelm # Date 1218146205 -7200 # Node ID 5def98c2646b2e9233c90281d1769853d4986e88 # Parent 3bff97077d2650a5d2568416a1889a647890ca1d inner_syntax markup is back; diff -r 3bff97077d26 -r 5def98c2646b src/Pure/Isar/outer_parse.ML --- a/src/Pure/Isar/outer_parse.ML Thu Aug 07 23:32:49 2008 +0200 +++ b/src/Pure/Isar/outer_parse.ML Thu Aug 07 23:56:45 2008 +0200 @@ -141,8 +141,7 @@ fun position scan = (Scan.ahead not_eof >> T.position_of) -- scan >> Library.swap; -(*fun inner_syntax token = Scan.ahead token |-- not_eof >> T.source_of; FIXME tmp *) -fun inner_syntax token = token; +fun inner_syntax token = Scan.ahead token |-- not_eof >> T.source_of; fun kind k = group (T.str_of_kind k) (Scan.one (T.is_kind k) >> T.val_of);