author | wenzelm |
Sat, 07 Jul 2007 18:47:47 +0200 | |
changeset 23642 | 10672e025b83 |
parent 23641 | d6f9d3acffaa |
child 23643 | 32ee4111d1bc |
--- a/src/Pure/General/markup.ML Sat Jul 07 18:39:21 2007 +0200 +++ b/src/Pure/General/markup.ML Sat Jul 07 18:47:47 2007 +0200 @@ -46,7 +46,7 @@ val none = ("", []); -fun markup kind = (kind, (kind, [])); +fun markup kind = (kind, (kind, []): T); fun markup_name kind = (kind, fn name => (kind, [(nameN, name)]): T);