Parent Directory | Revision Log | Patch
revision 1.13.2.6 by mdj, Thu Apr 17 18:47:18 2003 UTC | revision 1.13.2.7 by mdj, Thu Apr 17 18:52:21 2003 UTC | |
---|---|---|
# | Line 936 | Line 936 |
936 | ;; So we can work as if we had only proper lists. | ;; So we can work as if we had only proper lists. |
937 | (if (pair? l) | (if (pair? l) |
938 | (begin | (begin |
939 | (if (eqv? (car l) old) | (if (eq? (car l) old) |
940 | (set-car! l new)) | (set-car! l new)) |
941 | (loop (cdr l)))))) | (loop (cdr l)))))) |
942 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |