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