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

search-deques: simplify.

db4
John Benediktsson 2014-12-11 14:52:22 -08:00
parent 1f16d1933b
commit fa151f30b7
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/search-deques/search-deques.factor
View File

@ -16,15 +16,13 @@ M: search-deque peek-back* deque>> peek-back* ;
M: search-deque push-front* M: search-deque push-front*
2dup assoc>> at* [ 2nip ] [ 2dup assoc>> at* [ 2nip ] [
drop drop
[ deque>> push-front* ] [ assoc>> ] 2bi [ deque>> push-front* dup ] [ assoc>> set-at ] 2bi
[ 2drop ] [ set-at ] 3bi
] if ; ] if ;
M: search-deque push-back* M: search-deque push-back*
2dup assoc>> at* [ 2nip ] [ 2dup assoc>> at* [ 2nip ] [
drop drop
[ deque>> push-back* ] [ assoc>> ] 2bi [ deque>> push-back* dup ] [ assoc>> set-at ] 2bi
[ 2drop ] [ set-at ] 3bi
] if ; ] if ;
M: search-deque pop-front* M: search-deque pop-front*