public

patrickas / tardis_closure.txt

Created 2010-11-10

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