/[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.367 by kfstorm, Tue Jun 22 13:57:00 2004 UTC revision 1.368 by kfstorm, Tue Jun 22 14:48:10 2004 UTC
# Line 3020  SEQUENCE may be a list, a vector, a bool Line 3020  SEQUENCE may be a list, a vector, a bool
3020    for (i = 1; i < nargs; i += 2)    for (i = 1; i < nargs; i += 2)
3021      args[i] = separator;      args[i] = separator;
3022    
3023      GCPRO1 (*args);
3024      gcpro1.nvars = nargs;
3025    ret = Fconcat (nargs, args);    ret = Fconcat (nargs, args);
3026      UNGCPRO;
3027    
3028    SAFE_FREE_LISP (nargs);    SAFE_FREE_LISP (nargs);
3029    
3030    return ret;    return ret;
# Line 3036  SEQUENCE may be a list, a vector, a bool Line 3040  SEQUENCE may be a list, a vector, a bool
3040    register Lisp_Object len;    register Lisp_Object len;
3041    register int leni;    register int leni;
3042    register Lisp_Object *args;    register Lisp_Object *args;
3043      struct gcpro gcpro1;
3044    Lisp_Object ret;    Lisp_Object ret;
3045    USE_SAFE_ALLOCA;    USE_SAFE_ALLOCA;
3046    
# Line 3046  SEQUENCE may be a list, a vector, a bool Line 3051  SEQUENCE may be a list, a vector, a bool
3051    
3052    mapcar1 (leni, args, function, sequence);    mapcar1 (leni, args, function, sequence);
3053    
3054      GCPRO1 (*args);
3055      gcpro1.nvars = leni;
3056    ret = Flist (leni, args);    ret = Flist (leni, args);
3057      UNGCPRO;
3058    
3059    SAFE_FREE_LISP (leni);    SAFE_FREE_LISP (leni);
3060    
3061    return ret;    return ret;

Legend:
Removed from v.1.367  
changed lines
  Added in v.1.368

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