/[emacs]/emacs/src/fns.c
ViewVC logotype

Diff of /emacs/src/fns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.393 by nickrob, Tue May 24 10:27:22 2005 UTC revision 1.394 by kfstorm, Wed Jun 1 11:42:19 2005 UTC
# Line 3132  mapcar1 (leni, vals, fn, seq) Line 3132  mapcar1 (leni, vals, fn, seq)
3132    else   /* Must be a list, since Flength did not get an error */    else   /* Must be a list, since Flength did not get an error */
3133      {      {
3134        tail = seq;        tail = seq;
3135        for (i = 0; i < leni; i++)        for (i = 0; i < leni && CONSP (tail); i++)
3136          {          {
3137            dummy = call1 (fn, Fcar (tail));            dummy = call1 (fn, XCAR (tail));
3138            if (vals)            if (vals)
3139              vals[i] = dummy;              vals[i] = dummy;
3140            tail = XCDR (tail);            tail = XCDR (tail);
# Line 3172  SEQUENCE may be a list, a vector, a bool Line 3172  SEQUENCE may be a list, a vector, a bool
3172    mapcar1 (leni, args, function, sequence);    mapcar1 (leni, args, function, sequence);
3173    UNGCPRO;    UNGCPRO;
3174    
3175    for (i = leni - 1; i >= 0; i--)    for (i = leni - 1; i > 0; i--)
3176      args[i + i] = args[i];      args[i + i] = args[i];
3177    
3178    for (i = 1; i < nargs; i += 2)    for (i = 1; i < nargs; i += 2)

Legend:
Removed from v.1.393  
changed lines
  Added in v.1.394

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26