Posted to tcl by apn at Wed Jun 24 02:00:12 GMT 2015view pretty
% tc compile {a = b[b < 10]} set a [ tarray::teval::rt::push_selector_context [set b] try { return -level 0 [tarray::teval::rt::selector [tarray::teval::rt::selector_context] [tarray::teval::rt::mathop < [set b] 10]] } finally { tarray::teval::rt::pop_selector_context } ]