| changeset 58893 | 9e0ecb66d6a7 |
| parent 56895 | f058120aaad4 |
| child 59923 | b21c82422d65 |
--- a/src/HOL/SPARK/Tools/spark_commands.ML Mon Nov 03 14:31:15 2014 +0100 +++ b/src/HOL/SPARK/Tools/spark_commands.ML Mon Nov 03 14:50:27 2014 +0100 @@ -126,7 +126,7 @@ (Parse.name >> (fn name => Toplevel.local_theory_to_proof NONE (prove_vc name))); val _ = - Outer_Syntax.improper_command @{command_spec "spark_status"} + Outer_Syntax.command @{command_spec "spark_status"} "show the name and state of all loaded verification conditions" (Scan.optional (Args.parens