author | berghofe |
Fri, 16 Apr 2004 18:47:00 +0200 | |
changeset 14599 | c3177fffd31a |
parent 14598 | 7009f59711e3 |
child 14600 | ba51bc239716 |
--- a/src/Pure/Syntax/ast.ML Fri Apr 16 18:45:56 2004 +0200 +++ b/src/Pure/Syntax/ast.ML Fri Apr 16 18:47:00 2004 +0200 @@ -81,7 +81,7 @@ (* pretty_ast *) -fun pretty_ast (Constant a) = Pretty.str (quote a) +fun pretty_ast (Constant a) = Pretty.quote (Pretty.str a) | pretty_ast (Variable x) = Pretty.str x | pretty_ast (Appl asts) = Pretty.enclose "(" ")" (Pretty.breaks (map pretty_ast asts));