drop_while

drop_while   p   xs

returns the remaining portion of the list

Source code:

    set index 0    
    foreach x $xs {
	if { ![eval_unary $p $x] } { break }
	incr index
    }
    drop $index $xs