steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/classes/classes.factor
View File

@ -174,8 +174,7 @@ GENERIC: update-methods ( class seq -- )
[ forget ] [ drop ] if [ forget ] [ drop ] if
] [ 2drop ] if ; ] [ 2drop ] if ;
: forget-methods ( class -- ) GENERIC: forget-methods ( class -- )
[ implementors ] [ [ swap 2array ] curry ] bi map forget-all ;
GENERIC: class-forgotten ( use class -- ) GENERIC: class-forgotten ( use class -- )

2
core/classes/tuple/tuple-tests.factor
View File

@ -133,7 +133,7 @@ M: integer forget-robustness-generic ;
[ [
[ ] [ \ forget-robustness-generic forget ] unit-test [ ] [ \ forget-robustness-generic forget ] unit-test
[ ] [ \ forget-robustness 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 ] with-compilation-unit
! rapido found this one ! rapido found this one

3
core/generic/generic.factor
View File

@ -188,5 +188,8 @@ M: generic subwords
M: generic forget* M: generic forget*
[ subwords forget-all ] [ call-next-method ] bi ; [ subwords forget-all ] [ call-next-method ] bi ;
M: class forget-methods
[ implementors ] [ [ swap method ] curry ] bi map forget-all ;
: xref-generics ( -- ) : xref-generics ( -- )
all-words [ subwords [ xref ] each ] each ; all-words [ subwords [ xref ] each ] each ;