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

Fix dlist-member?

db4
Slava Pestov 2008-07-28 17:55:41 -05:00
parent 4953ce5d2f
commit c8cafe5706
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/dlists/dlists-tests.factor
View File

@ -71,3 +71,9 @@ IN: dlists.tests
[ <dlist> peek-back ] [ empty-dlist? ] must-fail-with [ <dlist> peek-back ] [ empty-dlist? ] must-fail-with
[ <dlist> pop-front ] [ empty-dlist? ] must-fail-with [ <dlist> pop-front ] [ empty-dlist? ] must-fail-with
[ <dlist> pop-back ] [ empty-dlist? ] must-fail-with [ <dlist> pop-back ] [ empty-dlist? ] must-fail-with
[ t ] [ <dlist> 3 over push-front 4 over push-back 3 swap dequeue-member? ] unit-test
[ f ] [ <dlist> 3 over push-front 4 over push-back -1 swap dequeue-member? ] unit-test
[ f ] [ <dlist> 0 swap dequeue-member? ] unit-test

2
core/dlists/dlists.factor
View File

@ -122,7 +122,7 @@ M: dlist pop-back* ( dlist -- )
dlist-find nip ; inline dlist-find nip ; inline
M: dlist dequeue-member? ( value dlist -- ? ) M: dlist dequeue-member? ( value dlist -- ? )
[ = ] curry dlist-contains? ; [ = ] with dlist-contains? ;
M: dlist delete-node ( dlist-node dlist -- ) M: dlist delete-node ( dlist-node dlist -- )
{ {