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

add inline declarations to dlists

release
Slava Pestov 2007-11-15 17:21:45 -05:00
parent e163e15828
commit b4df054dd4
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
core/dlists/dlists.factor Normal file → Executable file
View File

@ -49,15 +49,15 @@ C: <dlist-node> dlist-node
drop nip t drop nip t
] [ ] [
drop dlist-node-next [ (dlist-find-node) ] [ drop f f ] if* drop dlist-node-next [ (dlist-find-node) ] [ drop f f ] if*
] if ; ] if ; inline
: dlist-find-node ( quot dlist -- node/f ? ) : dlist-find-node ( quot dlist -- node/f ? )
dlist-front [ (dlist-find-node) ] [ drop f f ] if* ; dlist-front [ (dlist-find-node) ] [ drop f f ] if* ; inline
: (dlist-each-node) ( quot dlist -- ) : (dlist-each-node) ( quot dlist -- )
over over
[ 2dup call >r dlist-node-next r> (dlist-each-node) ] [ 2dup call >r dlist-node-next r> (dlist-each-node) ]
[ 2drop ] if ; [ 2drop ] if ; inline
: dlist-each-node ( quot dlist -- ) : dlist-each-node ( quot dlist -- )
>r dlist-front r> (dlist-each-node) ; inline >r dlist-front r> (dlist-each-node) ; inline
@ -98,10 +98,10 @@ PRIVATE>
: pop-back* ( dlist -- ) pop-back drop ; : pop-back* ( dlist -- ) pop-back drop ;
: dlist-find ( quot dlist -- obj/f ? ) : dlist-find ( quot dlist -- obj/f ? )
dlist-find-node dup [ >r dlist-node-obj r> ] when ; dlist-find-node dup [ >r dlist-node-obj r> ] when ; inline
: dlist-contains? ( quot dlist -- ? ) : dlist-contains? ( quot dlist -- ? )
dlist-find nip ; dlist-find nip ; inline
: (delete-node) ( dlist dlist-node -- ) : (delete-node) ( dlist dlist-node -- )
{ {
@ -116,10 +116,10 @@ PRIVATE>
[ (delete-node) ] keep [ dlist-node-obj t ] [ f f ] if* [ (delete-node) ] keep [ dlist-node-obj t ] [ f f ] if*
] [ ] [
2drop f f 2drop f f
] if ; ] if ; inline
: delete-node ( quot dlist -- obj/f ) : delete-node ( quot dlist -- obj/f )
delete-node* drop ; delete-node* drop ; inline
: dlist-each ( dlist quot -- ) : dlist-each ( dlist quot -- )
[ dlist-node-obj ] swap compose dlist-each-node ; inline [ dlist-node-obj ] swap compose dlist-each-node ; inline