From d52f55f5088f140f9dd57c473fd976ff18f69935 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 11 Dec 2014 15:57:48 -0800
Subject: [PATCH] deques: enhance slurp-deque stack effect.

---
 basis/deques/deques.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/deques/deques.factor b/basis/deques/deques.factor
index f5be97f894..bcc6a76de5 100644
--- a/basis/deques/deques.factor
+++ b/basis/deques/deques.factor
@@ -47,7 +47,7 @@ ERROR: empty-deque ;
 : pop-back ( deque -- obj )
     [ peek-back ] [ pop-back* ] bi ; inline
 
-: slurp-deque ( deque quot: ( obj -- ) -- )
+: slurp-deque ( ... deque quot: ( ... obj -- ... ) -- ... )
     [ drop '[ _ deque-empty? ] ]
     [ '[ _ pop-back @ ] ]
     2bi until ; inline