# HG changeset patch
# User wenzelm
# Date 1165683940 -3600
# Node ID 908a93216f00b37f461108cf7148d19d7d8971cf
# Parent  059e6b8cee8ec72acd972da224b89f27c17e3424
abbrevs: print original rhs;

diff -r 059e6b8cee8e -r 908a93216f00 src/Pure/display.ML
--- a/src/Pure/display.ML	Sat Dec 09 18:05:39 2006 +0100
+++ b/src/Pure/display.ML	Sat Dec 09 18:05:40 2006 +0100
@@ -221,7 +221,7 @@
     val arties = dest_table (Sign.type_space thy, arities);
     val cnsts = extern_table constants;
     val log_cnsts = map_filter (fn (c, (ty, NONE)) => SOME (c, ty) | _ => NONE) cnsts;
-    val abbrevs = map_filter (fn (c, (ty, SOME t)) => SOME (c, (ty, t)) | _ => NONE) cnsts;
+    val abbrevs = map_filter (fn (c, (ty, SOME (t, _))) => SOME (c, (ty, t)) | _ => NONE) cnsts;
     val cnstrs = extern_table constraints;
     val axms = extern_table axioms;
     val oras = extern_table oracles;