/[guile]/guile/guile-core/srfi/srfi-1.scm
ViewVC logotype

Diff of /guile/guile-core/srfi/srfi-1.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

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