/************************************************************************
* undef -- generate code for an undefine				*
************************************************************************/
subroutine undef
include ratfor.def
integer scan
character token(MAXTOKEN)

if(scan(token) ^= LEXIDENT)
	call synerr(S_INVAL_UNDEF)
else
	call delete(token)
return
end