src/Pure/Isar/proof.ML
changeset 5945 63184e276c1d
parent 5936 406eb27fe53c
child 5993 d03fbef54c62
--- a/src/Pure/Isar/proof.ML	Sat Nov 21 12:17:18 1998 +0100
+++ b/src/Pure/Isar/proof.ML	Sat Nov 21 12:18:06 1998 +0100
@@ -266,6 +266,7 @@
 
 fun print_state (state as State ({context, facts, mode, goal = _}, nodes)) =
   let
+    val ref (_, _, begin_goal) = Goals.current_goals_markers;
     val prt_tthm = Attribute.pretty_tthm;
 
     fun print_facts None = ()
@@ -277,7 +278,7 @@
 
     fun print_goal (i, ((kind, name, _, _), (_, thm))) =
       (writeln (kind_name kind ^ " " ^ quote name ^ levels_up (i div 1) ^ ":");	(* FIXME *)
-        Locale.print_goals (! goals_limit) thm);
+        Locale.print_goals_marker begin_goal (! goals_limit) thm);
   in
     writeln ("Nesting level: " ^ string_of_int (length nodes div 1));	(* FIXME *)
     writeln "";