replace-patterns ( vector tree -- tree )

Vocabulary

cpu.8080.emulator

Inputs

vector	an object
tree	an object

Outputs

tree

an object

Definition

USING: combinators kernel sequences sequences.deep ;

IN: cpu.8080.emulator

: replace-patterns ( vector tree -- tree )
    [
        {
            { $1 [ first ] }
            { $2 [ second ] }
            { $3 [ third ] }
            { $4 [ fourth ] }
            [ nip ]
        } case
    ] with deep-map ;