/[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.368 by kfstorm, Tue Jun 22 14:48:10 2004 UTC revision 1.369 by kfstorm, Thu Jun 24 22:03: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    
   GCPRO1 (*args);  
   gcpro1.nvars = nargs;  
3023    ret = Fconcat (nargs, args);    ret = Fconcat (nargs, args);
   UNGCPRO;  
   
3024    SAFE_FREE_LISP (nargs);    SAFE_FREE_LISP (nargs);
3025    
3026    return ret;    return ret;
# Line 3040  SEQUENCE may be a list, a vector, a bool Line 3036  SEQUENCE may be a list, a vector, a bool
3036    register Lisp_Object len;    register Lisp_Object len;
3037    register int leni;    register int leni;
3038    register Lisp_Object *args;    register Lisp_Object *args;
   struct gcpro gcpro1;  
3039    Lisp_Object ret;    Lisp_Object ret;
3040    USE_SAFE_ALLOCA;    USE_SAFE_ALLOCA;
3041    
# Line 3051  SEQUENCE may be a list, a vector, a bool Line 3046  SEQUENCE may be a list, a vector, a bool
3046    
3047    mapcar1 (leni, args, function, sequence);    mapcar1 (leni, args, function, sequence);
3048    
   GCPRO1 (*args);  
   gcpro1.nvars = leni;  
3049    ret = Flist (leni, args);    ret = Flist (leni, args);
   UNGCPRO;  
   
3050    SAFE_FREE_LISP (leni);    SAFE_FREE_LISP (leni);
3051    
3052    return ret;    return ret;

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

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