steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

spider.unique-deque: fix for stricter stack effect checking

db4
Slava Pestov 2009-11-09 01:59:22 -06:00
parent ca12618c51
commit 7f889e4bb3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/spider/unique-deque/unique-deque.factor
View File

@ -30,7 +30,7 @@ TUPLE: unique-deque assoc deque ;
: peek-url ( unique-deque -- todo-url ) deque>> peek-front ; : 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 deque-empty? [
deque pop-front dup quot1 call deque pop-front dup quot1 call
[ quot2 call t ] [ drop f ] if [ quot2 call t ] [ drop f ] if