src/Pure/Isar/isar_syn.ML
changeset 7222 e4244b2e70ef
parent 7199 7fede88e5c73
child 7269 8aa45a40c87a
--- a/src/Pure/Isar/isar_syn.ML	Mon Aug 16 18:47:20 1999 +0200
+++ b/src/Pure/Isar/isar_syn.ML	Mon Aug 16 22:03:48 1999 +0200
@@ -527,10 +527,14 @@
   OuterSyntax.improper_command "pr" "print current toplevel state" K.diag
     (Scan.succeed (Toplevel.print o Toplevel.imperative (fn () => Toplevel.quiet := false)));
 
-val no_prP =
-  OuterSyntax.improper_command "no_pr" "disable printing of toplevel state" K.diag
+val disable_prP =
+  OuterSyntax.improper_command "disable_pr" "disable printing of toplevel state" K.diag
     (Scan.succeed (Toplevel.imperative (fn () => Toplevel.quiet := true)));
 
+val enable_prP =
+  OuterSyntax.improper_command "enable_pr" "enable printing of toplevel state" K.diag
+    (Scan.succeed (Toplevel.imperative (fn () => Toplevel.quiet := false)));
+
 
 val opt_unit = Scan.optional (P.$$$ "(" -- P.$$$ ")" >> (K ())) ();
 
@@ -588,8 +592,8 @@
   print_lthmsP, print_thmsP, print_propP, print_termP, print_typeP,
   (*system commands*)
   cdP, pwdP, use_thyP, use_thy_onlyP, update_thyP, update_thy_onlyP,
-  touch_thyP, touch_all_thysP, remove_thyP, prP, no_prP, commitP,
-  quitP, exitP, init_toplevelP];
+  touch_thyP, touch_all_thysP, remove_thyP, prP, disable_prP,
+  enable_prP, commitP, quitP, exitP, init_toplevelP];
 
 
 end;