src/Tools/code/code_package.ML

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