dlists: fix stack effect names.

diff --git a/basis/dlists/dlists.factor b/basis/dlists/dlists.factor
index 5372832cd5dc090b2bcdd0e3a20c7f12bafa80c4..c186d8633e3646f4963f2813af4d8d174740fd86 100644 (file)
--- a/basis/dlists/dlists.factor
+++ b/basis/dlists/dlists.factor
@@ -18,7 +18,7 @@ M: dlist-link obj>> ;
         swap >>prev
         swap >>obj ; inline
 
-: <dlist-node> ( obj prev next -- node )
+: <dlist-node> ( obj prev next -- dlist-node )
     \ dlist-node new-dlist-link ; inline
 
 TUPLE: dlist
@@ -105,12 +105,12 @@ M: dlist push-front* ( obj dlist -- dlist-node )
     [ front<< ] keep
     set-back-to-front ;
 
-: push-node-front ( node dlist -- )
+: push-node-front ( dlist-node dlist -- )
     [ front>> >>next drop ]
     [ front<< ]
     [ [ set-next-prev ] [ set-back-to-front ] bi* ] 2tri ;
 
-: push-node-back ( node dlist -- )
+: push-node-back ( dlist-node dlist -- )
     [ back>> >>prev drop ]
     [ back<< ]
     [ [ set-prev-next ] [ set-front-to-back ] bi* ] 2tri ;