equal
deleted
inserted
replaced
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; |