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