make smlnj happy;
authorwenzelm
Sat, 07 Jul 2007 18:47:47 +0200
changeset 23642 10672e025b83
parent 23641 d6f9d3acffaa
child 23643 32ee4111d1bc
make smlnj happy;
src/Pure/General/markup.ML
--- 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);