src/Pure/Isar/parse.ML
changeset 62529 8b7bdfc09f3b
parent 61814 1ca1142e1711
child 62752 d09d71223e7a
equal deleted inserted replaced
62528:c8c532b22947 62529:8b7bdfc09f3b
   209 
   209 
   210 fun reserved x =
   210 fun reserved x =
   211   group (fn () => "reserved identifier " ^ quote x)
   211   group (fn () => "reserved identifier " ^ quote x)
   212     (RESET_VALUE (Scan.one (Token.ident_with (fn y => x = y)) >> Token.content_of));
   212     (RESET_VALUE (Scan.one (Token.ident_with (fn y => x = y)) >> Token.content_of));
   213 
   213 
   214 val dots = sym_ident :-- (fn "\\<dots>" => Scan.succeed () | _ => Scan.fail) >> #1;
   214 val dots = sym_ident :-- (fn "\<dots>" => Scan.succeed () | _ => Scan.fail) >> #1;
   215 
   215 
   216 val minus = sym_ident :-- (fn "-" => Scan.succeed () | _ => Scan.fail) >> #1;
   216 val minus = sym_ident :-- (fn "-" => Scan.succeed () | _ => Scan.fail) >> #1;
   217 
   217 
   218 val underscore = sym_ident :-- (fn "_" => Scan.succeed () | _ => Scan.fail) >> #1;
   218 val underscore = sym_ident :-- (fn "_" => Scan.succeed () | _ => Scan.fail) >> #1;
   219 fun maybe scan = underscore >> K NONE || scan >> SOME;
   219 fun maybe scan = underscore >> K NONE || scan >> SOME;