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

bug fixes

cvs
Mackenzie Straight 2005-02-10 01:17:23 +00:00
parent 5de9e55e26
commit 7e11f655b5
1 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
library/dlists.factor
View File

@ -22,10 +22,27 @@ C: dlist-node
: dlist-empty? ( dlist -- ? ) : dlist-empty? ( dlist -- ? )
dlist-first f = ; dlist-first f = ;
: (unlink-prev) ( dlist dnode -- )
dup dlist-node-prev [
dupd swap dlist-node-next swap set-dlist-node-next
] when*
2dup swap dlist-first eq? [
dlist-node-next swap set-dlist-first
] [ 2drop ] ifte ;
: (unlink-next) ( dlist dnode -- )
dup dlist-node-next [
dupd swap dlist-node-prev swap set-dlist-node-prev
] when*
2dup swap dlist-last eq? [
dlist-node-prev swap set-dlist-last
] [ 2drop ] ifte ;
: (dlist-unlink) ( dlist dnode -- )
[ (unlink-prev) ] 2keep (unlink-next) ;
: (dlist-pop-front) ( dlist -- data ) : (dlist-pop-front) ( dlist -- data )
[ dlist-first dlist-node-data ] keep [ dlist-first dlist-node-data ] keep dup dlist-first (dlist-unlink) ;
[ dup dlist-first dlist-node-next swap set-dlist-first ] keep
dup dlist-first [ drop ] [ f swap set-dlist-last ] ifte ;
: dlist-pop-front ( dlist -- data ) : dlist-pop-front ( dlist -- data )
dup dlist-empty? [ drop f ] [ (dlist-pop-front) ] ifte ; dup dlist-empty? [ drop f ] [ (dlist-pop-front) ] ifte ;