From 1f3dc639db8cf896571881383b8c1286a647ffd7 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 11 Dec 2014 14:05:04 -0800
Subject: [PATCH] deques: adding stack effect to quot in slurp-deque.

---
 basis/deques/deques-docs.factor | 2 +-
 basis/deques/deques.factor      | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/basis/deques/deques-docs.factor b/basis/deques/deques-docs.factor
index 3a3e9d11e7..3f9e9eca6e 100644
--- a/basis/deques/deques-docs.factor
+++ b/basis/deques/deques-docs.factor
@@ -124,7 +124,7 @@ HELP: node-value
 
 HELP: slurp-deque
 { $values
-     { "deque" deque } { "quot" quotation } }
+     { "deque" deque } { "quot" { $quotation ( obj -- ) } } }
 { $description "Pops off the back element of the deque and calls the quotation in a loop until the deque is empty." }
 { $examples
   { $example
diff --git a/basis/deques/deques.factor b/basis/deques/deques.factor
index 12ec8b2338..f5be97f894 100644
--- a/basis/deques/deques.factor
+++ b/basis/deques/deques.factor
@@ -47,9 +47,9 @@ ERROR: empty-deque ;
 : pop-back ( deque -- obj )
     [ peek-back ] [ pop-back* ] bi ; inline
 
-: slurp-deque ( deque quot -- )
-    [ drop '[ _ deque-empty? not ] ]
+: slurp-deque ( deque quot: ( obj -- ) -- )
+    [ drop '[ _ deque-empty? ] ]
     [ '[ _ pop-back @ ] ]
-    2bi while ; inline
+    2bi until ; inline
 
 MIXIN: deque