Fix dlist-member?
parent
4953ce5d2f
commit
c8cafe5706
core/dlists
|
@ -71,3 +71,9 @@ IN: dlists.tests
|
|||
[ <dlist> peek-back ] [ empty-dlist? ] must-fail-with
|
||||
[ <dlist> pop-front ] [ 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
|
||||
|
|
|
@ -122,7 +122,7 @@ M: dlist pop-back* ( dlist -- )
|
|||
dlist-find nip ; inline
|
||||
|
||||
M: dlist dequeue-member? ( value dlist -- ? )
|
||||
[ = ] curry dlist-contains? ;
|
||||
[ = ] with dlist-contains? ;
|
||||
|
||||
M: dlist delete-node ( dlist-node dlist -- )
|
||||
{
|
||||
|
|
Loading…
Reference in New Issue