change some "2drop 2drop" to "4drop".

basis/compiler/cfg/liveness/liveness.factor

@@ -97,7 +97,7 @@ M: vreg-insn lookup-base-pointer* drop f ;
     pick rep-of {
         { tagged-rep [ nip adjoin ] }
         { int-rep [ visit-derived-root ] }
-        [ 2drop 2drop ]
+        [ 4drop ]
     } case ;
 
 : gc-roots ( live-set -- derived-roots gc-roots )

basis/compiler/tests/intrinsics.factor

@@ -301,7 +301,7 @@ cell 8 = [
     [ -18446744073709551616 ] [ -1 64 [ fixnum-shift ] compile-call ] unit-test
     [ -18446744073709551616 ] [ -1 [ 64 fixnum-shift ] compile-call ] unit-test
     [ -18446744073709551616 ] [ -1 [ 32 fixnum-shift 32 fixnum-shift ] compile-call ] unit-test
-    
+
     [ 576460752303423488 ] [ -576460752303423488 >fixnum -1 [ fixnum/i ] compile-call ] unit-test
 
     [ 576460752303423488 0 ] [ -576460752303423488 >fixnum -1 [ fixnum/mod ] compile-call ] unit-test
@@ -315,11 +315,11 @@ cell 8 = [
 ERROR: bug-in-fixnum* x y a b ;
 
 [ ] [
-    10000 [ 
+    10000 [
         32 random-bits >fixnum
         32 random-bits >fixnum
         2dup [ fixnum* ] [ compiled-fixnum* ] 2bi 2dup =
-        [ 2drop 2drop ] [ bug-in-fixnum* ] if
+        [ 4drop ] [ bug-in-fixnum* ] if
     ] times
 ] unit-test
 

basis/io/ports/ports.factor

@@ -97,7 +97,7 @@ M:: input-port stream-read-unsafe ( n dst port -- count )
             drop read-until-loop
         ] if
     ] [
-        [ 2drop 2drop ] dip
+        [ 4drop ] dip
     ] if ;
 
 M: input-port stream-read-until ( seps port -- str/f sep/f )

basis/math/intervals/intervals.factor

@@ -67,7 +67,7 @@ MEMO: array-capacity-interval ( -- interval )
 
 : compare-endpoints ( p1 p2 quot -- ? )
     [ 2dup [ first ] bi@ 2dup ] dip call [
-        2drop 2drop t
+        4drop t
     ] [
         number= [ [ second ] bi@ not or ] [ 2drop f ] if
     ] if ; inline

basis/math/partial-dispatch/partial-dispatch.factor

@@ -147,7 +147,7 @@ SYMBOL: fast-math-ops
 
 : math-both-known? ( word left right -- ? )
     3dup math-op
-    [ 2drop 2drop t ]
+    [ 4drop t ]
     [ drop math-class-max swap method-for-class >boolean ] if ;
 
 : (derived-ops) ( word assoc -- words )

basis/stack-checker/visitor/dummy/dummy.factor

@@ -8,7 +8,7 @@ M: f #introduce, drop ;
 M: f #call, 3drop ;
 M: f #call-recursive, 3drop ;
 M: f #push, 2drop ;
-M: f #shuffle, 2drop 2drop drop ;
+M: f #shuffle, 4drop drop ;
 M: f #>r, 2drop ;
 M: f #r>, 2drop ;
 M: f #return, drop ;

basis/ui/tools/inspector/inspector.factor

@@ -111,7 +111,7 @@ M: inspector-gadget focusable-child*
     [ table>> (selected-row) ] tri [
         [ key>> ] [ key-string>> ] bi
         slot-editor-window
-    ] [ 2drop 2drop ] if ;
+    ] [ 4drop ] if ;
 
 : inspector-help ( -- ) "ui-inspector" com-browse ;
 

basis/vocabs/refresh/refresh.factor

@@ -47,7 +47,7 @@ SYMBOL: modified-docs
                 source-modified? [ get push ] [ 2drop ] if
             ] [ 3drop ] if
         ] [ drop get push ] if
-    ] [ 2drop 2drop ] if ;
+    ] [ 4drop ] if ;
 
 : to-refresh ( prefix -- modified-sources modified-docs unchanged )
     [

unmaintained/adsoda/combinators/combinators.factor

@@ -24,17 +24,17 @@ IN: adsoda.combinators
     2dup swap length 
     {
         { [ over 1 = ] [ 3drop columnize ] }
-        { [ over 0 = ] [ 2drop 2drop { } ] }
-        { [ 2dup < ] [ 2drop [ 1 cut ] dip  
-                         [ 1 - among [ append ] with map  ] 
+        { [ over 0 = ] [ 4drop { } ] }
+        { [ 2dup < ] [ 2drop [ 1 cut ] dip
+                         [ 1 - among [ append ] with map ]
                          [ among append ] 2bi
                        ] }
         { [ 2dup = ] [ 3drop 1array ] }
-        { [ 2dup > ] [ 2drop 2drop {  } ] } 
+        { [ 2dup > ] [ 4drop { } ] }
     } cond
 ;
 
-: concat-nth ( seq1 seq2 -- seq )  
+: concat-nth ( seq1 seq2 -- seq )
     [ nth append ] curry map-index ;
 
 : do-cycle   ( array -- array )   dup first suffix ;