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

View File

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

View File

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