take-while!

[procedure] take-while! pred clist

SRFI-1: linear update variant of take-while.