search-deques: simplify.

diff --git a/basis/search-deques/search-deques.factor b/basis/search-deques/search-deques.factor
index 84b49e92660f9791b28f0d2ea55468076ebae2a1..1df77fe3df85e9e8c67a0481dc21f5c47df040ba 100644 (file)
--- a/basis/search-deques/search-deques.factor
+++ b/basis/search-deques/search-deques.factor
@@ -16,15 +16,13 @@ M: search-deque peek-back* deque>> peek-back* ;
 M: search-deque push-front*
     2dup assoc>> at* [ 2nip ] [
         drop
-        [ deque>> push-front* ] [ assoc>> ] 2bi
-        [ 2drop ] [ set-at ] 3bi
+        [ deque>> push-front* dup ] [ assoc>> set-at ] 2bi
     ] if ;
 
 M: search-deque push-back*
     2dup assoc>> at* [ 2nip ] [
         drop
-        [ deque>> push-back* ] [ assoc>> ] 2bi
-        [ 2drop ] [ set-at ] 3bi
+        [ deque>> push-back* dup ] [ assoc>> set-at ] 2bi
     ] if ;
 
 M: search-deque pop-front*