From c8cafe5706e9285ecf579718548d21a768912e7e Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 28 Jul 2008 17:55:41 -0500
Subject: [PATCH] Fix dlist-member?

---
 core/dlists/dlists-tests.factor | 6 ++++++
 core/dlists/dlists.factor       | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/core/dlists/dlists-tests.factor b/core/dlists/dlists-tests.factor
index ff015bf95b..119a0acadb 100755
--- a/core/dlists/dlists-tests.factor
+++ b/core/dlists/dlists-tests.factor
@@ -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
diff --git a/core/dlists/dlists.factor b/core/dlists/dlists.factor
index 370ec4042f..d996e3dcf9 100755
--- a/core/dlists/dlists.factor
+++ b/core/dlists/dlists.factor
@@ -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 -- )
     {