make SML/NJ happy;
authorwenzelm
Thu, 23 Feb 2006 13:37:46 +0100
changeset 19131 06b6f5f8e4cb
parent 19130 b23479b80828
child 19132 ff41946e5092
make SML/NJ happy;
src/Pure/Syntax/syn_trans.ML
--- a/src/Pure/Syntax/syn_trans.ML	Thu Feb 23 13:00:18 2006 +0100
+++ b/src/Pure/Syntax/syn_trans.ML	Thu Feb 23 13:37:46 2006 +0100
@@ -438,7 +438,7 @@
   [("_abs", abs_tr), ("_aprop", aprop_tr), ("_ofclass", ofclass_tr),
    ("_TYPE", type_tr), ("_DDDOT", dddot_tr),
    ("_index", index_tr)],
-  [],
+  ([]: (string * (term list -> term)) list),
   [("_abs", abs_ast_tr'), ("_idts", idtyp_ast_tr' "_idts"),
    ("_pttrns", idtyp_ast_tr' "_pttrns"), ("==>", impl_ast_tr'),
    ("_index", index_ast_tr')]);