Function: byte-compile-while



(fn FORM)