export_code: proper command;
authorwenzelm
Fri, 19 Oct 2007 23:21:15 +0200
changeset 25110 7253d331e9fc
parent 25109 dfa8001e6264
child 25111 d52a58b51f1f
export_code: proper command;
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 =