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

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

db4
John Benediktsson 2012-10-23 12:21:30 -07:00
parent 22f8d09220
commit 013160df9a
9 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/cfg/liveness/liveness.factor
View File

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

2
basis/compiler/tests/intrinsics.factor
View File

@ -319,7 +319,7 @@ ERROR: bug-in-fixnum* x y a b ;
32 random-bits >fixnum 32 random-bits >fixnum
32 random-bits >fixnum 32 random-bits >fixnum
2dup [ fixnum* ] [ compiled-fixnum* ] 2bi 2dup = 2dup [ fixnum* ] [ compiled-fixnum* ] 2bi 2dup =
[ 2drop 2drop ] [ bug-in-fixnum* ] if [ 4drop ] [ bug-in-fixnum* ] if
] times ] times
] unit-test ] unit-test

2
basis/io/ports/ports.factor
View File

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

2
basis/math/intervals/intervals.factor
View File

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

2
basis/math/partial-dispatch/partial-dispatch.factor
View File

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

2
basis/stack-checker/visitor/dummy/dummy.factor
View File

@ -8,7 +8,7 @@ M: f #introduce, drop ;
M: f #call, 3drop ; M: f #call, 3drop ;
M: f #call-recursive, 3drop ; M: f #call-recursive, 3drop ;
M: f #push, 2drop ; 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 #r>, 2drop ; M: f #r>, 2drop ;
M: f #return, drop ; M: f #return, drop ;

2
basis/ui/tools/inspector/inspector.factor
View File

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

2
basis/vocabs/refresh/refresh.factor
View File

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

4
unmaintained/adsoda/combinators/combinators.factor
View File

@ -24,13 +24,13 @@ IN: adsoda.combinators
2dup swap length 2dup swap length
{ {
{ [ over 1 = ] [ 3drop columnize ] } { [ over 1 = ] [ 3drop columnize ] }
{ [ over 0 = ] [ 2drop 2drop { } ] } { [ over 0 = ] [ 4drop { } ] }
{ [ 2dup < ] [ 2drop [ 1 cut ] dip { [ 2dup < ] [ 2drop [ 1 cut ] dip
[ 1 - among [ append ] with map ] [ 1 - among [ append ] with map ]
[ among append ] 2bi [ among append ] 2bi
] } ] }
{ [ 2dup = ] [ 3drop 1array ] } { [ 2dup = ] [ 3drop 1array ] }
{ [ 2dup > ] [ 2drop 2drop { } ] } { [ 2dup > ] [ 4drop { } ] }
} cond } cond
; ;