src/Pure/Isar/toplevel.ML
changeset 55446 e77f2858bd59
parent 54678 87910da843d5
child 56055 8fe7414f00b1
equal deleted inserted replaced
55445:a76c679c0218 55446:e77f2858bd59
   115 fun loc_begin loc (Context.Theory thy) =
   115 fun loc_begin loc (Context.Theory thy) =
   116       (Context.Theory o loc_exit, loc_init (the_default ("-", Position.none) loc) thy)
   116       (Context.Theory o loc_exit, loc_init (the_default ("-", Position.none) loc) thy)
   117   | loc_begin NONE (Context.Proof lthy) =
   117   | loc_begin NONE (Context.Proof lthy) =
   118       (Context.Proof o Local_Theory.restore, lthy)
   118       (Context.Proof o Local_Theory.restore, lthy)
   119   | loc_begin (SOME loc) (Context.Proof lthy) =
   119   | loc_begin (SOME loc) (Context.Proof lthy) =
   120       (Context.Proof o Named_Target.reinit lthy, loc_init loc (loc_exit (Local_Theory.assert_nonbrittle lthy)));
   120       (Context.Proof o Named_Target.reinit lthy,
       
   121         loc_init loc (loc_exit (Local_Theory.assert_nonbrittle lthy)));
   121 
   122 
   122 
   123 
   123 (* datatype node *)
   124 (* datatype node *)
   124 
   125 
   125 datatype node =
   126 datatype node =