diff --git a/extra/spider/unique-deque/unique-deque.factor b/extra/spider/unique-deque/unique-deque.factor index 9003b56b15..f660674b63 100644 --- a/extra/spider/unique-deque/unique-deque.factor +++ b/extra/spider/unique-deque/unique-deque.factor @@ -30,7 +30,7 @@ TUPLE: unique-deque assoc deque ; : peek-url ( unique-deque -- todo-url ) deque>> peek-front ; -:: slurp-deque-when ( deque quot1 quot2: ( value -- ) -- ) +:: slurp-deque-when ( deque quot1: ( value -- ) quot2: ( value -- ) -- ) deque deque-empty? [ deque pop-front dup quot1 call [ quot2 call t ] [ drop f ] if