
#include "yodl.h"

void
gram_UNDEFINEMACRO ()
{
  char
   *sym;
  int
    i;

  sym = gram_parlist (builtin[idx_UNDEFINEMACRO], 0);
  gram_onename (builtin[idx_UNDEFINEMACRO], sym);

  message (3, "undefining macro: %s\n", sym);

  if ((i = strtab_find (userdef, nuserdef, sym)) != -1)
    *userdef[i] = ' ';

  free (sym);
}
