delegate.protocols: adding deque-protocol.

diff --git a/basis/delegate/protocols/protocols.factor b/basis/delegate/protocols/protocols.factor
index 7576cc9ef78d8b17aa5f3aedbec9644fcee489df..3a6501b540b5dd7c99d8a410e12b6c741c1a8231 100644 (file)
--- a/basis/delegate/protocols/protocols.factor
+++ b/basis/delegate/protocols/protocols.factor
@@ -1,6 +1,7 @@
 ! Copyright (C) 2007 Daniel Ehrenberg
 ! See http://factorcode.org/license.txt for BSD license.
-USING: assocs delegate io sequences sequences.private sets ;
+USING: assocs delegate deques io sequences sequences.private
+sets ;
 IN: delegate.protocols
 
 PROTOCOL: sequence-protocol
@@ -12,6 +13,10 @@ PROTOCOL: assoc-protocol
 at* assoc-size >alist set-at assoc-clone-like
 delete-at clear-assoc new-assoc assoc-like ;
 
+PROTOCOL: deque-protocol
+push-front* push-back* peek-front* peek-back* pop-front*
+pop-back* delete-node deque-member?  clear-deque deque-empty? ;
+
 PROTOCOL: set-protocol
 adjoin ?adjoin in? delete ?delete set-like fast-set members
 union intersect intersects? diff subset? set= duplicates