tuned Toplevel.begin_local_theory;
authorwenzelm
Wed, 11 Oct 2006 22:55:23 +0200
changeset 20986 808ae04981be
parent 20985 de13e2a23c8e
child 20987 d1674119d0f9
tuned Toplevel.begin_local_theory;
src/Pure/Tools/class_package.ML
--- a/src/Pure/Tools/class_package.ML	Wed Oct 11 22:55:22 2006 +0200
+++ b/src/Pure/Tools/class_package.ML	Wed Oct 11 22:55:23 2006 +0200
@@ -595,7 +595,7 @@
       || class_bodyP >> pair [])
     -- P.opt_begin
     >> (fn ((bname, (supclasses, elems)), begin) =>
-        Toplevel.begin_local_theory begin (class bname supclasses elems)));
+        Toplevel.begin_local_theory begin (class bname supclasses elems #-> TheoryTarget.begin)));
 
 val instanceP =
   OuterSyntax.command instanceK "prove type arity or subclass relation" K.thy_goal ((