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 {}