# HG changeset patch
# User wenzelm
# Date 1236699778 -3600
# Node ID d1fe8cea5db9ce49d7b9bd6ef9b246185f43fa63
# Parent  81218f70997fc80bc67b47c3c51d314a8c18d5fe
quote binding for ML toplevel pp;

diff -r 81218f70997f -r d1fe8cea5db9 src/Pure/pure_setup.ML
--- a/src/Pure/pure_setup.ML	Tue Mar 10 11:01:28 2009 +0100
+++ b/src/Pure/pure_setup.ML	Tue Mar 10 16:42:58 2009 +0100
@@ -33,7 +33,7 @@
   map (fn (x, y) => Pretty.str (x ^ "=" ^ y)) o Position.properties_of));
 install_pp (make_pp ["Thm", "thm"] ProofDisplay.pprint_thm);
 install_pp (make_pp ["Thm", "cterm"] ProofDisplay.pprint_cterm);
-install_pp (make_pp ["Binding", "binding"] (Pretty.pprint o Pretty.str o Binding.str_of));
+install_pp (make_pp ["Binding", "binding"] (Pretty.pprint o Pretty.str o quote o Binding.str_of));
 install_pp (make_pp ["Thm", "ctyp"] ProofDisplay.pprint_ctyp);
 install_pp (make_pp ["Context", "theory"] Context.pprint_thy);
 install_pp (make_pp ["Context", "theory_ref"] Context.pprint_thy_ref);