error_message ("Redeclaration of %s\n", s->name);
error_message (1, "Redeclaration of %s\n", s->name);
define_proc (char *name, List *args, unsigned id){     Symbol *s;     s = addsym (name);     if (s->type != TUNDEFINED) {	  error_message ("Redeclaration of %s\n", s->name);	  return NULL;     }     s->type = TPROC;     s->u.proc.id = id;     s->u.proc.arguments = args;     return s;}