src/Pure/Isar/isar_syn.ML
changeset 7023 5d1eafaff50c
parent 7012 ae9dac5af9d1
child 7102 ead5c234b28c
equal deleted inserted replaced
7022:abf9d5e2fb6e 7023:5d1eafaff50c
   521     (Scan.succeed IsarCmd.exit);
   521     (Scan.succeed IsarCmd.exit);
   522 
   522 
   523 val restartP =
   523 val restartP =
   524   OuterSyntax.improper_command "restart" "restart Isar loop" K.control
   524   OuterSyntax.improper_command "restart" "restart Isar loop" K.control
   525     (Scan.succeed IsarCmd.restart);
   525     (Scan.succeed IsarCmd.restart);
   526 
       
   527 val breakP =
       
   528   OuterSyntax.improper_command "break" "discontinue excursion (keep current state)" K.control
       
   529     (Scan.succeed IsarCmd.break);
       
   530 
   526 
   531 
   527 
   532 
   528 
   533 (** the Pure outer syntax **)
   529 (** the Pure outer syntax **)
   534 
   530 
   562   print_commandsP, print_theoryP, print_syntaxP, print_attributesP,
   558   print_commandsP, print_theoryP, print_syntaxP, print_attributesP,
   563   print_methodsP, print_theoremsP, print_bindsP, print_lthmsP,
   559   print_methodsP, print_theoremsP, print_bindsP, print_lthmsP,
   564   print_thmsP, print_propP, print_termP, print_typeP,
   560   print_thmsP, print_propP, print_termP, print_typeP,
   565   (*system commands*)
   561   (*system commands*)
   566   cdP, pwdP, use_thyP, use_thy_onlyP, update_thyP, prP, commitP,
   562   cdP, pwdP, use_thyP, use_thy_onlyP, update_thyP, prP, commitP,
   567   quitP, exitP, restartP, breakP];
   563   quitP, exitP, restartP];
   568 
   564 
   569 
   565 
   570 end;
   566 end;
   571 
   567 
   572 
   568