take_until p xsWhat it does:
returns the list of elements upto and including the first element of xs which satisfies pDefined in: /web/philip/tcl/ad-functional.tcl
Source code:
set index 0 foreach x $xs { incr index if { [eval_unary $p $x] } { break } } take $index $xs