delegate.protocols: add set-protocol.

diff --git a/basis/delegate/protocols/protocols.factor b/basis/delegate/protocols/protocols.factor
index eb2434cf0fe00fd8974db0f6a52fa1012d0b7ac6..aca50d293c316d4d3fb0e6b549603d21b39d8620 100644 (file)
--- a/basis/delegate/protocols/protocols.factor
+++ b/basis/delegate/protocols/protocols.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2007 Daniel Ehrenberg
 ! See http://factorcode.org/license.txt for BSD license.
-USING: delegate sequences.private sequences assocs io ;
+USING: assocs delegate io sequences sequences.private sets ;
 IN: delegate.protocols
 
 PROTOCOL: sequence-protocol
@@ -12,6 +12,11 @@ PROTOCOL: assoc-protocol
 at* assoc-size >alist set-at assoc-clone-like
 delete-at clear-assoc new-assoc assoc-like ;
 
+PROTOCOL: set-protocol
+adjoin ?adjoin in? delete set-like fast-set members
+union intersect intersects? diff subset? set= duplicates
+all-unique? null? cardinality clear-set ;
+
 PROTOCOL: input-stream-protocol
 stream-read1 stream-read-unsafe stream-read-partial-unsafe
 stream-readln stream-read-until stream-contents* ;