Posted to tcl by miguel at Sat May 07 14:46:21 GMT 2011view raw
- # 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 {}