Dynamic Lexicals in PIR

dyn_lex.pir

.sub 'main' :main
    .local pmc lex
    .lex 'dynlex', lex
    lex = new 'FixedStringArray', 2
    lex[0] = 'main'
    'test'()
    say lex
    'test2'()
    say lex
.end

.sub 'test'
    $P0 = find_dynamic_lex 'dynlex'
    $P0[1] = 'test'
.end

.sub 'test2'
    $P0 = new 'FixedStringArray', 1
    $P0[0] = 'test2 rules'
    store_dynamic_lex 'dynlex', $P0
.end