# HG changeset patch
# User wenzelm
# Date 953071139 -3600
# Node ID fff900f591532c37c7590d094fbb11401cf98fb0
# Parent  0771ba650f73f88618940f308e086b57c6e2fc14
'undo' prints state (again);
'pr' command: optional limit argument;

diff -r 0771ba650f73 -r fff900f59153 src/Pure/Isar/isar_syn.ML
--- a/src/Pure/Isar/isar_syn.ML	Tue Mar 14 22:58:20 2000 +0100
+++ b/src/Pure/Isar/isar_syn.ML	Tue Mar 14 22:58:59 2000 +0100
@@ -462,7 +462,7 @@
 
 val undoP =
   OuterSyntax.improper_command "undo" "undo last command" K.control
-    (Scan.succeed IsarCmd.undo);
+    (Scan.succeed (Toplevel.print o IsarCmd.undo));
 
 
 
@@ -581,15 +581,15 @@
 
 val prP =
   OuterSyntax.improper_command "pr" "print current toplevel state" K.diag
-    (Scan.succeed (Toplevel.print o Toplevel.imperative (fn () => Toplevel.quiet := false)));
+    (Scan.option P.nat >> (Toplevel.print oo IsarCmd.pr));
 
 val disable_prP =
   OuterSyntax.improper_command "disable_pr" "disable printing of toplevel state" K.diag
-    (Scan.succeed (Toplevel.imperative (fn () => Toplevel.quiet := true)));
+    (Scan.succeed IsarCmd.disable_pr);
 
 val enable_prP =
   OuterSyntax.improper_command "enable_pr" "enable printing of toplevel state" K.diag
-    (Scan.succeed (Toplevel.imperative (fn () => Toplevel.quiet := false)));
+    (Scan.succeed IsarCmd.enable_pr);
 
 val commitP =
   OuterSyntax.improper_command "commit" "commit current session to ML database" K.diag