/[gcl]/gcl/o/list.d
ViewVC logotype

Diff of /gcl/o/list.d

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

revision 1.13 by camm, Tue Oct 1 04:37:33 2002 UTC revision 1.14 by camm, Mon Jan 27 20:35:46 2003 UTC
# Line 968  Lnconc() { Line 968  Lnconc() {
968                          m->c.c_cdr = l;                          m->c.c_cdr = l;
969                          m = l;                          m = l;
970                  }                  }
971                  for (;  !endp(m->c.c_cdr);  m = m->c.c_cdr)                  for (;  m->c.c_cdr!=Cnil && type_of(m->c.c_cdr)==t_cons;  m = m->c.c_cdr);
972                          ;                  if (m->c.c_cdr!=Cnil) {
973                            m->c.c_cdr=make_cons(m->c.c_cdr,Cnil);
974                            m = m->c.c_cdr;
975                    }
976          }          }
977          if (x == Cnil) vs_base[0] = vs_top[-1];          if (x == Cnil) vs_base[0] = vs_top[-1];
978          else {          else {
# Line 1203  Ltailp() { Line 1206  Ltailp() {
1206                          vs_popp;                          vs_popp;
1207                          return;                          return;
1208                  }                  }
1209          vs_base[0] = Cnil;          vs_base[0] = vs_base[0]==Cnil ? Ct : Cnil;
1210          vs_popp;          vs_popp;
1211          return;          return;
1212  }  }

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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