changeset 58893 | 9e0ecb66d6a7 |
parent 58660 | 8d4aebb9e327 |
child 59058 | a78612c67ec0 |
--- a/src/HOL/Tools/BNF/bnf_def.ML Mon Nov 03 14:31:15 2014 +0100 +++ b/src/HOL/Tools/BNF/bnf_def.ML Mon Nov 03 14:50:27 2014 +0100 @@ -1598,7 +1598,7 @@ end; val _ = - Outer_Syntax.improper_command @{command_spec "print_bnfs"} + Outer_Syntax.command @{command_spec "print_bnfs"} "print all bounded natural functors" (Scan.succeed (Toplevel.keep (print_bnfs o Toplevel.context_of)));