comparison src/fns.c @ 56206:1305e0463707

(Fmapcar, Fmapconcat): GCPRO the args array.

56205:307725d46543

    args[i + i] = args[i];

  for (i = 1; i < nargs; i += 2)
    args[i] = separator;

  ret = Fconcat (nargs, args);
  SAFE_FREE_LISP (nargs);

  return ret;
}

     Lisp_Object function, sequence;
{
  register Lisp_Object len;
  register int leni;
  register Lisp_Object *args;
  Lisp_Object ret;
  USE_SAFE_ALLOCA;

  len = Flength (sequence);
  leni = XFASTINT (len);

  SAFE_ALLOCA_LISP (args, leni);

  mapcar1 (leni, args, function, sequence);

  ret = Flist (leni, args);
  SAFE_FREE_LISP (leni);

  return ret;
}

56206:1305e0463707

    args[i + i] = args[i];

  for (i = 1; i < nargs; i += 2)
    args[i] = separator;

  GCPRO1 (*args);
  gcpro1.nvars = nargs;
  ret = Fconcat (nargs, args);
  UNGCPRO;

  SAFE_FREE_LISP (nargs);

  return ret;
}

     Lisp_Object function, sequence;
{
  register Lisp_Object len;
  register int leni;
  register Lisp_Object *args;
  struct gcpro gcpro1;
  Lisp_Object ret;
  USE_SAFE_ALLOCA;

  len = Flength (sequence);
  leni = XFASTINT (len);

  SAFE_ALLOCA_LISP (args, leni);

  mapcar1 (leni, args, function, sequence);

  GCPRO1 (*args);
  gcpro1.nvars = leni;
  ret = Flist (leni, args);
  UNGCPRO;

  SAFE_FREE_LISP (leni);

  return ret;
}