assert(p_base <= file_pos);
if (p_base > file_pos) fatal("Internal error: seek %ld>%ld\n", p_base, file_pos);
skip_to(LINENUM file_pos, LINENUM file_line){	char	*ret;	assert(p_base <= file_pos);	if (verbose && p_base < file_pos) {		fseek(pfp, p_base, SEEK_SET);		say("The text leading up to this was:\n--------------------------\n");		while (ftell(pfp) < file_pos) {			ret = fgets(buf, sizeof buf, pfp);			assert(ret != NULL);			say("|%s", buf);		}		say("--------------------------\n");	} else		fseek(pfp, file_pos, SEEK_SET);	p_input_line = file_line - 1;}