Fix littledan bug #2

core/classes/classes.factor

@@ -255,7 +255,14 @@ PRIVATE>
     >r dup word-props r> union over set-word-props
     t "class" set-word-prop ;
 
-GENERIC: update-methods ( class -- )
+GENERIC: update-predicate ( class -- )
+
+M: class update-predicate drop ;
+
+: update-predicates ( assoc -- )
+    [ drop update-predicate ] assoc-each ;
+
+GENERIC: update-methods ( assoc -- )
 
 : define-class ( word members superclass metaclass -- )
     #! If it was already a class, update methods after.
@@ -264,8 +271,9 @@ GENERIC: update-methods ( class -- )
     over class-usages [
         uncache-classes
         dupd (define-class)
-    ] keep cache-classes
+    ] keep cache-classes r>
-    r> [ update-methods ] [ drop ] if ;
+    [ class-usages dup update-predicates update-methods ]
+    [ drop ] if ;
 
 GENERIC: class ( object -- class ) inline
 

core/classes/union/union.factor

@@ -20,6 +20,8 @@ PREDICATE: class union-class
     over members union-predicate-quot
     define-predicate ;
 
+M: union-class update-predicate define-union-predicate ;
+
 : define-union-class ( class members -- )
     dupd f union-class define-class define-union-predicate ;
 

core/generic/generic.factor

@@ -107,5 +107,5 @@ M: class forget* ( class -- )
     dup uncache-class
     forget-word ;
 
-M: class update-methods ( class -- )
+M: assoc update-methods ( assoc -- )
-    class-usages implementors* [ make-generic ] each ;
+    implementors* [ make-generic ] each ;