src/Pure/Isar/outer_syntax.ML
changeset 44357 5f5649ac8235
parent 44187 88d770052bac
child 44478 4fdb1009a370
     1.1 --- a/src/Pure/Isar/outer_syntax.ML	Sun Aug 21 20:25:49 2011 +0200
     1.2 +++ b/src/Pure/Isar/outer_syntax.ML	Sun Aug 21 20:42:26 2011 +0200
     1.3 @@ -62,7 +62,9 @@
     1.4  local
     1.5  
     1.6  fun terminate false = Scan.succeed ()
     1.7 -  | terminate true = Parse.group "end of input" (Scan.option Parse.sync -- Parse.semicolon >> K ());
     1.8 +  | terminate true =
     1.9 +      Parse.group (fn () => "end of input")
    1.10 +        (Scan.option Parse.sync -- Parse.semicolon >> K ());
    1.11  
    1.12  fun body cmd (name, _) =
    1.13    (case cmd name of