/[guile]/guile/guile-core/libguile/list.c
ViewVC logotype

Diff of /guile/guile-core/libguile/list.c

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

revision 1.58.2.3 by ossau, Fri Mar 15 09:23:19 2002 UTC revision 1.58.2.4 by rlb, Sat Oct 11 21:37:03 2003 UTC
# Line 260  SCM_DEFINE (scm_append, "append", 0, 0, Line 260  SCM_DEFINE (scm_append, "append", 0, 0,
260      SCM res = SCM_EOL;      SCM res = SCM_EOL;
261      SCM *lloc = &res;      SCM *lloc = &res;
262      SCM arg = SCM_CAR (args);      SCM arg = SCM_CAR (args);
263        int argnum = 1;
264      args = SCM_CDR (args);      args = SCM_CDR (args);
265      while (!SCM_NULLP (args)) {      while (!SCM_NULLP (args)) {
266        while (SCM_CONSP (arg)) {        while (SCM_CONSP (arg)) {
# Line 267  SCM_DEFINE (scm_append, "append", 0, 0, Line 268  SCM_DEFINE (scm_append, "append", 0, 0,
268          lloc = SCM_CDRLOC (*lloc);          lloc = SCM_CDRLOC (*lloc);
269          arg = SCM_CDR (arg);          arg = SCM_CDR (arg);
270        }        }
271        SCM_VALIDATE_NULL (SCM_ARGn, arg);        SCM_VALIDATE_NULL (argnum, arg);
272        arg = SCM_CAR (args);        arg = SCM_CAR (args);
273        args = SCM_CDR (args);        args = SCM_CDR (args);
274          argnum++;
275      };      };
276      *lloc = arg;      *lloc = arg;
277      return res;      return res;

Legend:
Removed from v.1.58.2.3  
changed lines
  Added in v.1.58.2.4

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