find-swap/swap ( word -- ? )

Vocabulary

lint

Inputs

word

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit continuations kernel
math quotations sequences sequences.deep splitting stack-checker
;

IN: lint

: find-swap/swap ( word -- ? )
    def>> [ callable? ] deep-filter [
        {
            [ [ \ swap = ] count 2 >= ]
            [
                { swap } split rest but-last [
                    [ infer ] [ 2drop ( -- ) ] recover
                    ( x -- x ) =
                ] any?
            ]
        } 1&&
    ] any? ;