R_CheckUserInterrupt() added to yield() to terminate control