take_until

one of the documented procedures in this installation of the ACS

Usage:

take_until p xs

What it does:

returns the list of elements upto and including the first element of xs which satisfies p

Defined 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