# HG changeset patch
# User wenzelm
# Date 1192828875 -7200
# Node ID 7253d331e9fcf04372a6bbc701122538ed6ed5f1
# Parent  dfa8001e6264c1467cab0b887f789d928c9fc954
export_code: proper command;

diff -r dfa8001e6264 -r 7253d331e9fc 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 =