--- a/src/Pure/Tools/class_deps.ML Mon Nov 03 14:31:15 2014 +0100
+++ b/src/Pure/Tools/class_deps.ML Mon Nov 03 14:50:27 2014 +0100
@@ -37,7 +37,7 @@
val visualize_cmd = gen_visualize Syntax.read_sort;
val _ =
- Outer_Syntax.improper_command @{command_spec "class_deps"} "visualize class dependencies"
+ Outer_Syntax.command @{command_spec "class_deps"} "visualize class dependencies"
((Scan.optional Parse.sort "{}" -- Scan.option Parse.sort) >> (fn (raw_super, raw_sub) =>
((Toplevel.unknown_theory oo Toplevel.keep) (fn st => visualize_cmd (Toplevel.context_of st) raw_super raw_sub))));