peekscan(expect, tokp) tok_kind expect; token *tokp;
peekscan(tok_kind expect, token *tokp)
peekscan(expect, tokp)	tok_kind expect;	token *tokp;{	peek(tokp);	if (tokp->kind == expect) {		get_token(tokp);		return (1);	}	return (0);}