Parent Directory | Revision Log | 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); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |