# HG changeset patch
# User wenzelm
# Date 1005920679 -3600
# Node ID d1c276b45dbc55aebef20c8e98e1a88df97c39e2
# Parent  cc31140bba168c763ea4092e5454271b24ecb3ad
ext_tsig_classes: rebuild_tsig!!!!!

diff -r cc31140bba16 -r d1c276b45dbc src/Pure/type.ML
--- a/src/Pure/type.ML	Fri Nov 16 15:24:09 2001 +0100
+++ b/src/Pure/type.ML	Fri Nov 16 15:24:39 2001 +0100
@@ -532,7 +532,10 @@
   let
     val TySg {classes, classrel, default, tycons, log_types, univ_witness, abbrs, arities} = tsig;
     val (classes', classrel') = extend_classes (classes,classrel, new_classes);
-  in make_tsig (classes', classrel', default, tycons, log_types, univ_witness, abbrs, arities) end;
+  in
+    make_tsig (classes', classrel', default, tycons, log_types, univ_witness, abbrs, arities)
+    |> rebuild_tsig
+  end;
 
 
 (* ext_tsig_classrel *)