src/Pure/Isar/isar_syn.ML
changeset 25625 35e2aa8b8b03
parent 25588 514ae4e4d164
child 25794 11bec58fc289
equal deleted inserted replaced
25624:04b67ee73327 25625:35e2aa8b8b03
   752   OuterSyntax.improper_command "Isabelle.command" "nested Isabelle command" K.control
   752   OuterSyntax.improper_command "Isabelle.command" "nested Isabelle command" K.control
   753     (P.position P.string :|-- (fn (str, pos) =>
   753     (P.position P.string :|-- (fn (str, pos) =>
   754       (case OuterSyntax.parse pos str of
   754       (case OuterSyntax.parse pos str of
   755         [transition] => Scan.succeed (K transition)
   755         [transition] => Scan.succeed (K transition)
   756       | _ => Scan.fail_with (K "exactly one command expected"))
   756       | _ => Scan.fail_with (K "exactly one command expected"))
   757       handle ERROR msg => Scan.fail_with (K ("malformed command\n" ^ msg))));
   757       handle ERROR msg => Scan.fail_with (K msg)));
   758 
   758 
   759 
   759 
   760 
   760 
   761 (** diagnostic commands (for interactive mode only) **)
   761 (** diagnostic commands (for interactive mode only) **)
   762 
   762