1.1 --- a/src/Tools/code/code_package.ML	Fri Oct 19 23:21:13 2007 +0200
     1.2 +++ b/src/Tools/code/code_package.ML	Fri Oct 19 23:21:15 2007 +0200
     1.3 @@ -262,7 +262,7 @@
     1.4  in
     1.5  
     1.6  val _ =
     1.7 -  OuterSyntax.improper_command codeK "generate executable code for constants"
     1.8 +  OuterSyntax.command codeK "generate executable code for constants"
     1.9      K.diag (P.!!! (code_exprP code_cmd) >> (fn f => Toplevel.keep (f o Toplevel.theory_of)));
    1.10  
    1.11  fun codegen_command thy cmd =