author | lcp |
Wed, 03 May 1995 13:40:19 +0200 | |
changeset 1089 | e679617661bc |
parent 1088 | fc4fb6e8a636 |
child 1090 | 8ab69b3e396b |
--- 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 *)