Now show_sorts:=true causes printing of types
authorlcp
Wed, 03 May 1995 13:40:19 +0200
changeset 1089 e679617661bc
parent 1088 fc4fb6e8a636
child 1090 8ab69b3e396b
Now show_sorts:=true causes printing of types
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 *)