Posted to tcl by miguel at Sat May 07 14:46:21 GMT 2011view pretty

# invoking rule 4
set temp [::site::RULE_4]

# invoking rule 5
set hum [::site::RULE_5]

# invoking scope 1
::P::Defer
::apply [lindex [dict get $LAMBDAS 1] 0] $LAMBDAS $hum $temp

# invoking scope 2
::P::Defer
::apply [lindex [dict get $LAMBDAS 2] 0] $LAMBDAS $hum $temp

# invoking scope 3
::P::Defer
::apply [lindex [dict get $LAMBDAS 3] 0] $LAMBDAS $hum $temp

namespace upvar ::P LOGGED_VARS LOGGED_VARS
lappend LOGGED_VARS 0 temp $temp
} ::site} LAMBDAS {}