deques: fix stack effect to have "deque" not "dlist".

diff --git a/basis/deques/deques-docs.factor b/basis/deques/deques-docs.factor
index 3823d6108a21033d206cab0a16d67aff589c1aff..8b86fd2f3f4f3241224e93a4c467ee0a3f6bedab 100644 (file)
--- a/basis/deques/deques-docs.factor
+++ b/basis/deques/deques-docs.factor
@@ -1,5 +1,5 @@
 USING: help.markup help.syntax kernel math sequences
-quotations dlists ;
+quotations ;
 IN: deques
 
 HELP: deque-empty?
@@ -53,12 +53,12 @@ HELP: peek-front*
 { $contract "Returns the object at the front of the deque, and a boolean indicating if an object was found." } ;
 
 HELP: peek-front
-{ $values { "dlist" dlist } { "obj" object } }
+{ $values { "deque" deque } { "obj" object } }
 { $description "Returns the object at the front of the deque." }
 { $errors "Throws an error if the deque is empty." } ;
 
 HELP: ?peek-front
-{ $values { "dlist" dlist } { "obj/f" "an object or " { $link f } } }
+{ $values { "deque" deque } { "obj/f" "an object or " { $link f } } }
 { $description "A forgiving version of " { $link peek-front } ". If the deque is empty, returns " { $link f } "." } ;
 
 HELP: pop-front
@@ -76,12 +76,12 @@ HELP: peek-back*
 { $contract "Returns the object at the back of the deque, and a boolean indicating if an object was found." } ;
 
 HELP: peek-back
-{ $values { "dlist" dlist } { "obj" object } }
+{ $values { "deque" deque } { "obj" object } }
 { $description "Returns the object at the back of the deque." }
 { $errors "Throws an error if the deque is empty." } ;
 
 HELP: ?peek-back
-{ $values { "dlist" dlist } { "obj/f" "an object or " { $link f } } }
+{ $values { "deque" deque } { "obj/f" "an object or " { $link f } } }
 { $description "A forgiving version of " { $link peek-back } ". If the deque is empty, returns " { $link f } "." } ;
 
 HELP: pop-back

diff --git a/basis/deques/deques.factor b/basis/deques/deques.factor
index 307d4828d066c1e880cb7f9894609877e93cc848..12ec8b233808a4598e4367fbfbd47cab0bf9d249 100644 (file)
--- a/basis/deques/deques.factor
+++ b/basis/deques/deques.factor
@@ -17,16 +17,16 @@ GENERIC: deque-empty? ( deque -- ? )
 
 ERROR: empty-deque ;
 
-: peek-front ( dlist -- obj )
+: peek-front ( deque -- obj )
     peek-front* [ drop empty-deque ] unless ;
 
-: ?peek-front ( dlist -- obj/f )
+: ?peek-front ( deque -- obj/f )
     peek-front* [ drop f ] unless ;
 
-: peek-back ( dlist -- obj )
+: peek-back ( deque -- obj )
     peek-back* [ drop empty-deque ] unless ;
 
-: ?peek-back ( dlist -- obj/f )
+: ?peek-back ( deque -- obj/f )
     peek-back* [ drop f ] unless ;
 
 : push-front ( obj deque -- )