tardis_closure.txt

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