Parrot でダイナミックスコープ

Parrot 1.6.0 がリリースされてダイナミックスコープが使えるようになった♪

.sub foo
        .local pmc var
        var = box "foo value"
        .lex 'var', var
        say var
        bar()
        say var
.end

.sub bar
        .local pmc var
        var = find_dynamic_lex 'var'
        say var
        $P1 = box "new value"
        store_dynamic_lex 'var', $P1
.end