deanonymize ( seq -- seq' )

Vocabulary

interpolate.private

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: arrays kernel math sequences ;

IN: interpolate.private

: deanonymize ( seq -- seq' )
    0 over <reversed> [
        dup first anon-var?
        [ [ 1 + dup stack-var boa ] dip second 2array ] when
    ] map! 2drop ;