From 20046a08a7b172830df4220ab1fea8bb557b2b8f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 13 Jul 2012 16:21:29 -0700
Subject: [PATCH] dlists: fix stack effect names.

---
 basis/dlists/dlists.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/dlists/dlists.factor b/basis/dlists/dlists.factor
index 5372832cd5..c186d8633e 100644
--- 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 ;