# HG changeset patch
# User lcp
# Date 799501219 -7200
# Node ID e679617661bc3d72d5cc4694c455d50c0435246f
# Parent  fc4fb6e8a6368476d19dba3ec54aed50f7e1b537
Now show_sorts:=true causes printing of types

diff -r fc4fb6e8a636 -r e679617661bc src/Pure/Syntax/printer.ML
--- a/src/Pure/Syntax/printer.ML	Wed May 03 13:35:09 1995 +0200
+++ b/src/Pure/Syntax/printer.ML	Wed May 03 13:40:19 1995 +0200
@@ -115,7 +115,7 @@
 (* term_to_ast *)
 
 fun term_to_ast trf tm =
-  ast_of_term trf (! show_types) (! show_sorts) tm;
+  ast_of_term trf (!show_types orelse !show_sorts) (!show_sorts) tm;
 
 
 (* typ_to_ast *)