# HG changeset patch
# User haftmann
# Date 1232702487 -3600
# Node ID 8161c8e3fa1061e9263905cd798b08b6c8cd54df
# Parent  b36bcbc1be3a93b6b0c10ab2be5c68e4d0504ed7
making SMLNJ happy

diff -r b36bcbc1be3a -r 8161c8e3fa10 src/Pure/pure_setup.ML
--- a/src/Pure/pure_setup.ML	Thu Jan 22 11:23:15 2009 +0100
+++ b/src/Pure/pure_setup.ML	Fri Jan 23 10:21:27 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", "T"] (Pretty.pprint o Pretty.str o Binding.display));
+install_pp (make_pp ["Binding", "binding"] (Pretty.pprint o Pretty.str o Binding.display));
 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);