From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 11 Feb 2017 22:23:57 +0000 (-0800)
Subject: delegate.protocols: adding deque-protocol.
X-Git-Tag: unmaintained~157
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=52932cf2e10412ffc12ab2f86587f055aff78c8e

delegate.protocols: adding deque-protocol.
---

diff --git a/basis/delegate/protocols/protocols.factor b/basis/delegate/protocols/protocols.factor
index 7576cc9ef7..3a6501b540 100644
--- 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