1.1 --- a/src/Pure/Isar/context_rules.ML	Sat Aug 09 12:28:13 2008 +0200
     1.2 +++ b/src/Pure/Isar/context_rules.ML	Sat Aug 09 22:43:46 2008 +0200
     1.3 @@ -205,8 +205,8 @@
     1.4  (* concrete syntax *)
     1.5  
     1.6  fun add_args a b c = Attrib.syntax
     1.7 -  (Scan.lift ((Args.bang >> K a || Args.query >> K c || Scan.succeed b) -- Scan.option Args.nat)
     1.8 -    >> (fn (f, n) => f n));
     1.9 +  (Scan.lift ((Args.bang >> K a || Args.query >> K c || Scan.succeed b) --
    1.10 +    Scan.option OuterParse.nat) >> (fn (f, n) => f n));
    1.11  
    1.12  val rule_atts =
    1.13   [("intro", add_args intro_bang intro intro_query, "declaration of introduction rule"),