comparison src/fns.c @ 20712:50255c536f0f

(mapcar1): Keep `i' in `i_before' before `i' is incremented by FETCH_STRING_CHAR_ADVANCE.

20711:9ab8e061c0bf

      int i_byte;

      for (i = 0, i_byte = 0; i < leni;)
	{
	  int c;
	  FETCH_STRING_CHAR_ADVANCE (c, seq, i, i_byte)
	  XSETFASTINT (dummy, c);
	  vals[i] = call1 (fn, dummy);
	}
    }
  else   /* Must be a list, since Flength did not get an error */
    {
      tail = seq;

20712:50255c536f0f

      int i_byte;

      for (i = 0, i_byte = 0; i < leni;)
	{
	  int c;
	  int i_before = i;

	  FETCH_STRING_CHAR_ADVANCE (c, seq, i, i_byte);
	  XSETFASTINT (dummy, c);
	  vals[i_before] = call1 (fn, dummy);
	}
    }
  else   /* Must be a list, since Flength did not get an error */
    {
      tail = seq;