Updating tests for method-spec removal
parent
fb246e2c85
commit
7bf0a46d3d
|
@ -174,8 +174,7 @@ GENERIC: update-methods ( class seq -- )
|
|||
[ forget ] [ drop ] if
|
||||
] [ 2drop ] if ;
|
||||
|
||||
: forget-methods ( class -- )
|
||||
[ implementors ] [ [ swap 2array ] curry ] bi map forget-all ;
|
||||
GENERIC: forget-methods ( class -- )
|
||||
|
||||
GENERIC: class-forgotten ( use class -- )
|
||||
|
||||
|
|
|
@ -133,7 +133,7 @@ M: integer forget-robustness-generic ;
|
|||
[
|
||||
[ ] [ \ forget-robustness-generic forget ] unit-test
|
||||
[ ] [ \ forget-robustness forget ] unit-test
|
||||
[ ] [ { forget-robustness forget-robustness-generic } forget ] unit-test
|
||||
[ ] [ M\ forget-robustness forget-robustness-generic forget ] unit-test
|
||||
] with-compilation-unit
|
||||
|
||||
! rapido found this one
|
||||
|
|
|
@ -188,5 +188,8 @@ M: generic subwords
|
|||
M: generic forget*
|
||||
[ subwords forget-all ] [ call-next-method ] bi ;
|
||||
|
||||
M: class forget-methods
|
||||
[ implementors ] [ [ swap method ] curry ] bi map forget-all ;
|
||||
|
||||
: xref-generics ( -- )
|
||||
all-words [ subwords [ xref ] each ] each ;
|
||||
|
|
Loading…
Reference in New Issue