/[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.14 by camm, Mon Jan 27 20:35:46 2003 UTC revision 1.15 by camm, Tue Jan 28 15:43:57 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 (;  m->c.c_cdr!=Cnil && type_of(m->c.c_cdr)==t_cons;  m = m->c.c_cdr);                  for (;  type_of(m->c.c_cdr)==t_cons;  m = m->c.c_cdr);
                 if (m->c.c_cdr!=Cnil) {  
                         m->c.c_cdr=make_cons(m->c.c_cdr,Cnil);  
                         m = m->c.c_cdr;  
                 }  
972          }          }
973          if (x == Cnil) vs_base[0] = vs_top[-1];          if (x == Cnil) vs_base[0] = vs_top[-1];
974          else {          else {
# Line 1200  Ltailp() { Line 1196  Ltailp() {
1196    
1197          check_arg(2);          check_arg(2);
1198          for (x = vs_base[1];  !endp(x);  x = x->c.c_cdr)          for (x = vs_base[1];  !endp(x);  x = x->c.c_cdr)
 /*              if (dot_list_eq(x,vs_base[0])) {*/  
1199                  if (eql(fix_dot(x),vs_base[0])) {                  if (eql(fix_dot(x),vs_base[0])) {
1200                          vs_base[0] = Ct;                          vs_base[0] = Ct;
1201                          vs_popp;                          vs_popp;
1202                          return;                          return;
1203                  }                  }
1204          vs_base[0] = vs_base[0]==Cnil ? Ct : Cnil;          if (eql(x,vs_base[0]))
1205                    vs_base[0] = Ct;
1206            else
1207                    vs_base[0] = Cnil;
1208          vs_popp;          vs_popp;
1209          return;          return;
1210  }  }

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

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