no Toplevel.print for by, ., ..;
authorwenzelm
Tue, 27 Apr 1999 15:13:58 +0200
changeset 6530 473305b71b74
parent 6529 0f4c2ebc5018
child 6531 8064ed198068
no Toplevel.print for by, ., ..;
src/Pure/Isar/isar_syn.ML
--- a/src/Pure/Isar/isar_syn.ML	Tue Apr 27 15:13:35 1999 +0200
+++ b/src/Pure/Isar/isar_syn.ML	Tue Apr 27 15:13:58 1999 +0200
@@ -323,15 +323,15 @@
 
 val terminal_proofP =
   OuterSyntax.command "by" "terminal backward proof"
-    (method >> (Toplevel.print oo IsarThy.terminal_proof));
+    (method >> IsarThy.terminal_proof)
 
 val immediate_proofP =
   OuterSyntax.command "." "immediate proof"
-    (Scan.succeed (Toplevel.print o IsarThy.immediate_proof));
+    (Scan.succeed IsarThy.immediate_proof);
 
 val default_proofP =
   OuterSyntax.command ".." "default proof"
-    (Scan.succeed (Toplevel.print o IsarThy.default_proof));
+    (Scan.succeed IsarThy.default_proof);
 
 
 (* proof steps *)