lint: add suggestion to replace "-roll -roll" with 2swap

freebsd-work
Alexander Iljin 2019-01-03 23:46:13 +01:00 committed by John Benediktsson
parent 97a91d66fc
commit 47c3f7d56d
1 changed files with 3 additions and 2 deletions
extra/lint

View File

@ -3,8 +3,8 @@
USING: accessors arrays assocs classes classes.tuple.private
combinators.short-circuit continuations fry io kernel
kernel.private locals.backend make math math.private namespaces
prettyprint quotations sequences sequences.deep slots.private
splitting stack-checker vocabs words words.alias ;
prettyprint quotations sequences sequences.deep shuffle
slots.private splitting stack-checker vocabs words words.alias ;
IN: lint
<PRIVATE
@ -17,6 +17,7 @@ CONSTANT: manual-substitutions
{ rot [ swapd swap ] }
{ over [ dup swap ] }
{ swapd [ [ swap ] dip ] }
{ 2swap [ -roll -roll ] }
{ 2nip [ nip nip ] }
{ 3nip [ 2nip nip ] }
{ 4nip [ 3nip nip ] }