* frame.c (delete_frame): New function derived from