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