Fix dlist-member?
parent
4953ce5d2f
commit
c8cafe5706
|
@ -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
|
||||||
|
|
|
@ -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 -- )
|
||||||
{
|
{
|
||||||
|
|
Loading…
Reference in New Issue