Remacs: Port mapc

[brotzeit]

DEFUN ("mapc", Fmapc, Smapc, 2, 2, 0,
       doc: /* Apply FUNCTION to each element of SEQUENCE for side effects only.
Unlike `mapcar', don't accumulate the results.  Return SEQUENCE.
SEQUENCE may be a list, a vector, a bool-vector, or a string.  */)
  (Lisp_Object function, Lisp_Object sequence)
{
  register EMACS_INT leni;

  leni = XFASTINT (Flength (sequence));
  if (CHAR_TABLE_P (sequence))
    wrong_type_argument (Qlistp, sequence);
  mapcar1 (leni, 0, function, sequence);

  return sequence;
}

[rodrigo-garcia-leon]

Hi, I'd like to work on this one

[shaleh]

@rodrigo-garcia-leon we have an "active PR" label to add once you make the PR.

[Wilfred]

@rodrigo-garcia-leon you are very welcome to work on this :)