pub(crate) fn compile_while( env: &mut SloshVm, state: &mut CompileState, cdr: &[Value], result: usize, ) -> VMResult<()>