Change "3dup drop" to "2over".

basis/compression/lzw/lzw.factor

@@ -83,8 +83,8 @@ M: gif-lzw increment-code-size [ 1 + 12 min ] change-code-size ;
 DEFER: handle-clear-code
 : lzw-process-next-code ( lzw quot: ( lzw code -- ) -- )
     [ lzw-read ] dip {
-        { [ 3dup drop end-of-information? ] [ 3drop ] }
-        { [ 3dup drop clear-code? ] [ 2drop handle-clear-code ] }
+        { [ 2over end-of-information? ] [ 3drop ] }
+        { [ 2over clear-code? ] [ 2drop handle-clear-code ] }
         [ call( lzw code -- ) ]
     } cond ; inline
 

basis/io/timeouts/timeouts.factor

@@ -17,7 +17,7 @@ GENERIC: cancel-operation ( obj -- )
     [ '[ _ cancel-operation ] ] dip later ;
 
 : with-timeout* ( obj timeout quot -- )
-    3dup drop queue-timeout [ nip call ] dip stop-timer ;
+    2over queue-timeout [ nip call ] dip stop-timer ;
     inline
 
 : with-timeout ( obj quot -- )

basis/persistent/heaps/heaps.factor

@@ -37,7 +37,7 @@ PRIVATE>
 GENERIC: sift-down ( value prio left right -- heap )
 
 : singleton-sift-down ( value prio singleton empty -- heap )
-    3dup drop prio>> <= [ <branch> ] [
+    2over prio>> <= [ <branch> ] [
         drop -rot [ [ value>> ] [ prio>> ] bi ] 2dip
         <singleton-heap> <persistent-heap> <branch>
     ] if ;

basis/regexp/dfa/dfa.factor

@@ -43,7 +43,7 @@ IN: regexp.dfa
     [ tagged-epsilon? not ] filter ;
 
 : add-todo-state ( state visited-states new-states -- )
-    3dup drop key? [ 3drop ] [
+    2over key? [ 3drop ] [
         [ conjoin ] [ push ] bi-curry* bi
     ] if ;
 

basis/tools/deploy/shaker/shaker.factor

@@ -272,7 +272,7 @@ IN: tools.deploy.shaker
         _ _
         {
             ! old becomes new
-            { [ 3dup drop eq? ] [ 2nip ] }
+            { [ 2over eq? ] [ 2nip ] }
             ! recurse into arrays
             { [ pick array? ] [ [ dup ] 2dip recursive-subst ] }
             ! otherwise do nothing

core/sets/sets.factor

@@ -91,7 +91,7 @@ M: set all-unique? drop t ;
 <PRIVATE
 
 : (pruned) ( elt hash vec -- )
-    3dup drop in? [ 3drop ] [
+    2over in? [ 3drop ] [
         [ drop adjoin ] [ nip push ] 3bi
     ] if ; inline
 

extra/sudoku/sudoku.factor

@@ -30,7 +30,7 @@ DEFER: search
 : attempt ( n x y -- )
     {
         { [ 3dup nip row-any? ] [ 3drop ] }
-        { [ 3dup drop col-any? ] [ 3drop ] }
+        { [ 2over col-any? ] [ 3drop ] }
         { [ 3dup box-any? ] [ 3drop ] }
         [ assume ]
     } cond ;