delegate.protocols: adding deque-protocol.
parent
d63c992d97
commit
52932cf2e1
|
@ -1,6 +1,7 @@
|
||||||
! Copyright (C) 2007 Daniel Ehrenberg
|
! Copyright (C) 2007 Daniel Ehrenberg
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! 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
|
IN: delegate.protocols
|
||||||
|
|
||||||
PROTOCOL: sequence-protocol
|
PROTOCOL: sequence-protocol
|
||||||
|
@ -12,6 +13,10 @@ PROTOCOL: assoc-protocol
|
||||||
at* assoc-size >alist set-at assoc-clone-like
|
at* assoc-size >alist set-at assoc-clone-like
|
||||||
delete-at clear-assoc new-assoc assoc-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
|
PROTOCOL: set-protocol
|
||||||
adjoin ?adjoin in? delete ?delete set-like fast-set members
|
adjoin ?adjoin in? delete ?delete set-like fast-set members
|
||||||
union intersect intersects? diff subset? set= duplicates
|
union intersect intersects? diff subset? set= duplicates
|
||||||
|
|
Loading…
Reference in New Issue