Function: byte-compile-while

(fn FORM)