my $c; | |
{ | |
my $a = 42; | |
$c = { say $a }; | |
} | |
$c() | |
############################################# | |
This is SIC v2010.11 | |
block 'B0': | |
`var '$c' | |
$0 = closure-from-block 'B1' | |
call $0 | |
$1 = fetch [0, 0] | |
call $1 | |
block 'B1': | |
`var '$a' | |
$0 = 42 | |
store [0, 0], $0 | |
$1 = closure-from-block 'B2' | |
store [-1, 0], $1 | |
block 'B2': | |
$0 = fetch [-1, 0] | |
say $0 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment