Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Add Comment
Please, Sign In to add comment