steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

dlists: use maybe: dlist-link.

db4
Doug Coleman 2011-11-22 19:38:46 -08:00
parent 82c5388f68
commit 17cc8ad1f3
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/dlists/dlists.factor
View File

@ -6,13 +6,7 @@ deques fry hashtables kernel parser search-deques sequences
summary vocabs.loader ; summary vocabs.loader ;
IN: dlists IN: dlists
MIXIN: ?dlist-node TUPLE: dlist-link { prev maybe: dlist-link } { next maybe: dlist-link } ;
INSTANCE: f ?dlist-node
TUPLE: dlist-link { prev ?dlist-node } { next ?dlist-node } ;
INSTANCE: dlist-link ?dlist-node
TUPLE: dlist-node < dlist-link obj ; TUPLE: dlist-node < dlist-link obj ;
@ -28,8 +22,8 @@ M: dlist-link obj>> ;
\ dlist-node new-dlist-link ; inline \ dlist-node new-dlist-link ; inline
TUPLE: dlist TUPLE: dlist
{ front ?dlist-node } { front maybe: dlist-link }
{ back ?dlist-node } ; { back maybe: dlist-link } ;
: <dlist> ( -- list ) : <dlist> ( -- list )
dlist new ; inline dlist new ; inline