replace-'__' ( before -- after )

Vocabulary

logic.private

Inputs

before

an object

Outputs

after

an object

Definition

USING: classes classes.tuple combinators kernel logic sequences
;

IN: logic.private

: replace-'__' ( before -- after )
    {
        { [ dup __ = ] [ drop proxy-var-for-'__' ] }
        { [ dup sequence? ] [ [ replace-'__' ] map ] }
        {
            [ dup tuple? ]
            [
                [ tuple-slots [ replace-'__' ] map ]
                [ class-of slots>tuple ] bi
            ]
        }
        [ ]
    } cond ;