src/HOL/Tools/BNF/bnf_def.ML
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)));