Fix unit test failure in compiler

db4
Slava Pestov 2008-09-03 17:24:06 -05:00
parent 194762776e
commit d12f55be31
2 changed files with 5 additions and 3 deletions

View File

@ -62,10 +62,13 @@ TUPLE: check-mixin-class mixin ;
] if-mixin-member? ;
: remove-mixin-instance ( class mixin -- )
#! The order of the three clauses is important here. The last
#! one must come after the other two so that the entries it
#! adds to changed-generics are not overwritten.
[
[ class-usages update-methods ]
[ [ swap remove ] change-mixin-class ]
[ nip update-classes ]
[ class-usages update-methods ]
2tri
] [ 2drop ] if-mixin-member? ;

View File

@ -110,8 +110,7 @@ SYMBOL: update-tuples-hook
: (compiled-generic-usages) ( generic class -- assoc )
dup class? [
[ compiled-generic-usage ] dip
[ [ classes-intersect? ] [ null class<= ] bi or nip ]
curry assoc-filter
[ classes-intersect? nip ] curry assoc-filter
] [ 2drop f ] if ;
: compiled-generic-usages ( assoc -- assocs )