Parent Directory | Revision Log | Patch
revision 1.23 by kryde, Fri May 9 22:38:54 2003 UTC | revision 1.24 by kryde, Mon May 12 23:02:01 2003 UTC | |
---|---|---|
# | Line 802 | Line 802 |
802 | (let lp ((l list)) | (let lp ((l list)) |
803 | (if (null? l) | (if (null? l) |
804 | '() | '() |
805 | (if (l= (car l) x) | (if (l= x (car l)) |
806 | (lp (cdr l)) | (lp (cdr l)) |
807 | (cons (car l) (lp (cdr l)))))))) | (cons (car l) (lp (cdr l)))))))) |
808 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |