2009/09/16

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

0 件のコメント: