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

dlists: fix stack effect names.

db4
John Benediktsson 2012-07-13 16:21:29 -07:00
parent d51a0e1647
commit 20046a08a7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/dlists/dlists.factor
View File

@ -18,7 +18,7 @@ M: dlist-link obj>> ;
swap >>prev swap >>prev
swap >>obj ; inline swap >>obj ; inline
: <dlist-node> ( obj prev next -- node ) : <dlist-node> ( obj prev next -- dlist-node )
\ dlist-node new-dlist-link ; inline \ dlist-node new-dlist-link ; inline
TUPLE: dlist TUPLE: dlist
@ -105,12 +105,12 @@ M: dlist push-front* ( obj dlist -- dlist-node )
[ front<< ] keep [ front<< ] keep
set-back-to-front ; set-back-to-front ;
: push-node-front ( node dlist -- ) : push-node-front ( dlist-node dlist -- )
[ front>> >>next drop ] [ front>> >>next drop ]
[ front<< ] [ front<< ]
[ [ set-next-prev ] [ set-back-to-front ] bi* ] 2tri ; [ [ set-next-prev ] [ set-back-to-front ] bi* ] 2tri ;
: push-node-back ( node dlist -- ) : push-node-back ( dlist-node dlist -- )
[ back>> >>prev drop ] [ back>> >>prev drop ]
[ back<< ] [ back<< ]
[ [ set-prev-next ] [ set-front-to-back ] bi* ] 2tri ; [ [ set-prev-next ] [ set-front-to-back ] bi* ] 2tri ;