manual-substitutions ( -- value )

Vocabulary

lint.private

Inputs

None

Outputs

value

an object

Definition

USING: kernel sequences shuffle ;

IN: lint.private

CONSTANT: manual-substitutions
    H{
        { when [ [ ] if ] }
        { nipd [ rot drop ] }
        { keep [ over [ call ] dip ] }
        { rot [ swapd swap ] }
        { dupd [ [ dup ] dip ] }
        { 2drop [ drop drop ] }
        { 3drop [ drop drop drop ] }
        { swapd [ [ swap ] dip ] }
        { spin [ swap rot ] }
        { 4drop [ drop drop drop drop ] }
        { over [ dup swap ] }
        { -rot [ swap swapd ] }
        { pop* [ pop drop ] }
        { 4nip [ 3nip nip ] }
        { 3nip [ 2nip nip ] }
        { 2dup [ over over ] }
        { 2nip [ nip nip ] }
        { >boolean [ f = not ] }
        { 2swap [ -roll -roll ] }
    } inline