src/Pure/Thy/thy_parse.ML
changeset 2385 73d1435aa729
parent 2360 1b6bc618c356
child 2694 b98365c6e869
--- a/src/Pure/Thy/thy_parse.ML	Fri Dec 13 17:37:11 1996 +0100
+++ b/src/Pure/Thy/thy_parse.ML	Fri Dec 13 17:37:42 1996 +0100
@@ -337,6 +337,7 @@
   " val parse_ast_translation = [];\n\
   \ val parse_translation = [];\n\
   \ val print_translation = [];\n\
+  \ val typed_print_translation = [];\n\
   \ val print_ast_translation = [];";
 
 val trfun_args =
@@ -480,6 +481,7 @@
         \\n\
         \|> add_trfuns\n"
         ^ trfun_args ^ "\n\
+        \|> add_trfunsT typed_print_translation \n\
         \\n"
         ^ extxt ^ "\n\
         \\n\