1.1 --- a/src/HOL/Tools/datatype_package.ML	Mon Mar 02 12:34:03 2009 +0000
     1.2 +++ b/src/HOL/Tools/datatype_package.ML	Mon Mar 02 16:58:39 2009 +0100
     1.3 @@ -631,8 +631,8 @@
     1.4  
     1.5  local
     1.6  
     1.7 -val sym_datatype = Pretty.str "\\isacommand{datatype}";
     1.8 -val sym_binder = Pretty.str "\\ {\\isacharequal}";
     1.9 +val sym_datatype = Pretty.command "datatype";
    1.10 +val sym_binder = Pretty.str "\\ {\\isacharequal}"; (*FIXME use proper symbol*)
    1.11  val sym_sep = Pretty.str "{\\isacharbar}\\ ";
    1.12  
    1.13  in