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

Diff of /gcl/o/read.d

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

revision 1.33 by camm, Fri Jul 8 06:12:26 2005 UTC revision 1.34 by camm, Thu Oct 6 20:30:08 2005 UTC
# Line 1741  object x; Line 1741  object x;
1741  {  {
1742          for (;;) {          for (;;) {
1743                  x->c.c_car = patch_sharp(x->c.c_car);                  x->c.c_car = patch_sharp(x->c.c_car);
1744                  if (type_of(x->c.c_cdr) == t_cons)                  if (consp(x->c.c_cdr))
1745                          x = x->c.c_cdr;                          x = x->c.c_cdr;
1746                  else {                  else {
1747                          x->c.c_cdr = patch_sharp(x->c.c_cdr);                          x->c.c_cdr = patch_sharp(x->c.c_cdr);

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

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