# HG changeset patch
# User wenzelm
# Date 1332177522 -3600
# Node ID e203b7d7e08dee640b13453c129457aa15a2492e
# Parent  95bd95addb24409cffec319661f6c14723086e52
allow keyword tags to be redefined, but not the command category;

diff -r 95bd95addb24 -r e203b7d7e08d src/Pure/Isar/outer_syntax.ML
--- a/src/Pure/Isar/outer_syntax.ML	Mon Mar 19 15:56:27 2012 +0100
+++ b/src/Pure/Isar/outer_syntax.ML	Mon Mar 19 18:18:42 2012 +0100
@@ -130,7 +130,7 @@
     val _ =
       (case try (Thy_Header.the_keyword thy) name of
         SOME spec =>
-          if Option.map Keyword.spec spec = SOME kind then ()
+          if Option.map #1 spec = SOME (Keyword.kind_of kind) then ()
           else error ("Inconsistent outer syntax keyword declaration " ^ quote name)
       | NONE =>
           if Context.theory_name thy = Context.PureN