equal
deleted
inserted
replaced
743 |
743 |
744 val _ = |
744 val _ = |
745 Outer_Syntax.improper_command @{command_spec "help"} |
745 Outer_Syntax.improper_command @{command_spec "help"} |
746 "retrieve outer syntax commands according to name patterns" |
746 "retrieve outer syntax commands according to name patterns" |
747 (Scan.repeat Parse.name >> |
747 (Scan.repeat Parse.name >> |
748 (fn pats => Toplevel.imperative (fn () => Outer_Syntax.help_outer_syntax pats))); |
748 (fn pats => Toplevel.imperative (fn () => Outer_Syntax.help_syntax pats))); |
749 |
749 |
750 val _ = |
750 val _ = |
751 Outer_Syntax.improper_command @{command_spec "print_commands"} "print outer syntax commands" |
751 Outer_Syntax.improper_command @{command_spec "print_commands"} "print outer syntax commands" |
752 (Scan.succeed (Toplevel.imperative Outer_Syntax.print_outer_syntax)); |
752 (Scan.succeed (Toplevel.imperative Outer_Syntax.print_syntax)); |
753 |
753 |
754 val _ = |
754 val _ = |
755 Outer_Syntax.improper_command @{command_spec "print_options"} "print configuration options" |
755 Outer_Syntax.improper_command @{command_spec "print_options"} "print configuration options" |
756 (Scan.succeed (Toplevel.unknown_context o |
756 (Scan.succeed (Toplevel.unknown_context o |
757 Toplevel.keep (Attrib.print_options o Toplevel.context_of))); |
757 Toplevel.keep (Attrib.print_options o Toplevel.context_of))); |