Posted to tcl by apn at Wed Jun 24 02:00:12 GMT 2015view raw

  1. % tc compile {a = b[b < 10]}
  2. set a [
  3. tarray::teval::rt::push_selector_context [set b]
  4. try {
  5. return -level 0 [tarray::teval::rt::selector [tarray::teval::rt::selector_context] [tarray::teval::rt::mathop < [set b] 10]]
  6. } finally {
  7. tarray::teval::rt::pop_selector_context
  8. }
  9. ]