src/Pure/Isar/isar_syn.ML
changeset 25269 f9090ae5cec9
parent 25192 b568f8c5d5ca
child 25290 250c7a0205ca
     1.1 --- a/src/Pure/Isar/isar_syn.ML	Fri Nov 02 18:52:59 2007 +0100
     1.2 +++ b/src/Pure/Isar/isar_syn.ML	Fri Nov 02 18:53:00 2007 +0100
     1.3 @@ -387,7 +387,7 @@
     1.4  val _ =
     1.5    OuterSyntax.command "context" "enter local theory context" K.thy_decl
     1.6      (P.name --| P.begin >> (fn name =>
     1.7 -      Toplevel.print o Toplevel.begin_local_theory true (TheoryTarget.init_cmd (SOME name))));
     1.8 +      Toplevel.print o Toplevel.begin_local_theory true (TheoryTarget.init_cmd name)));
     1.9  
    1.10  
    1.11  (* locales *)