Fix unit test failure in compiler
parent
194762776e
commit
d12f55be31
|
@ -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? ;
|
||||
|
||||
|
|
|
@ -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 )
|
||||
|
|
Loading…
Reference in New Issue