Permalink
Browse files

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

  • Loading branch information...
1 parent 1deb4b8 commit bf891c9634bf780e54d5da465aadb2a67f3b864c @mrjbq7 mrjbq7 committed Oct 23, 2012
@@ -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 )
@@ -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
@@ -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 )
@@ -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
@@ -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 )
@@ -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 ;
@@ -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 ;
@@ -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 )
[
@@ -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 ;

0 comments on commit bf891c9

Please sign in to comment.