src/Pure/Isar/isar_syn.ML
changeset 58862 63a16e98cc14
parent 58846 98c03412079b
child 58868 c5e1cce7ace3
equal deleted inserted replaced
58861:5ff61774df11 58862:63a16e98cc14
   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)));