Updating tests for method-spec removal

db4
Slava Pestov 2009-04-06 04:16:39 -05:00
parent fb246e2c85
commit 7bf0a46d3d
3 changed files with 5 additions and 3 deletions

View File

@ -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 -- )

View File

@ -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

View File

@ -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 ;