fixed dddot_tr;
authorwenzelm
Mon, 27 Mar 2000 21:13:06 +0200
changeset 8595 06874c5c3cfa
parent 8594 d2e2a3df6871
child 8596 b2ef22670f25
fixed dddot_tr;
src/Pure/Syntax/syn_trans.ML
--- a/src/Pure/Syntax/syn_trans.ML	Mon Mar 27 18:10:11 2000 +0200
+++ b/src/Pure/Syntax/syn_trans.ML	Mon Mar 27 21:13:06 2000 +0200
@@ -131,8 +131,7 @@
 
 (* dddot *)
 
-fun dddot_tr (*"_DDDOT"*) [] = Lexicon.var SynExt.dddot_indexname
-  | dddot_tr (*"_DDDOT"*) ts = raise TERM ("dddot_tr", ts);
+fun dddot_tr (*"_DDDOT"*) ts = Term.list_comb (Lexicon.var SynExt.dddot_indexname, ts);
 
 
 (* quote / antiquote *)