Re: [Chicken-users] obsolete code

2011-09-27 Thread Alex Shinn
On Tue, Sep 27, 2011 at 5:30 PM, Jörg F. Wittenberger wrote: > > But not including those two definitions should IMHO not do any harm. > I simply can not see where those would be used within irregex.scm. Sorry, I thought you were suggesting importing srfi-1 instead of using those definitions. The

Re: [Chicken-users] obsolete code

2011-09-27 Thread Jörg F . Wittenberger
On Sep 27 2011, Alex Shinn wrote: On Tue, Sep 27, 2011 at 3:39 AM, Jörg F. Wittenberger wrote: I found theses definitions in the irregex code mirroring srfi-1 simplified cases. (define (filter pred ls) (let lp ((ls ls) (res '())) (if (null? ls) (reverse res) (lp (cdr ls) (if (p

Re: [Chicken-users] obsolete code

2011-09-26 Thread Alex Shinn
On Tue, Sep 27, 2011 at 3:39 AM, Jörg F. Wittenberger wrote: > I found theses definitions in the irregex code mirroring srfi-1 > simplified cases. > > (define (filter pred ls) >  (let lp ((ls ls) (res '())) >   (if (null? ls) >       (reverse res) >       (lp (cdr ls) (if (pred (car ls)) (cons (ca

[Chicken-users] obsolete code

2011-09-26 Thread Jörg F . Wittenberger
I found theses definitions in the irregex code mirroring srfi-1 simplified cases. (define (filter pred ls) (let lp ((ls ls) (res '())) (if (null? ls) (reverse res) (lp (cdr ls) (if (pred (car ls)) (cons (car ls) res) res) (define (remove pred ls) (let lp ((ls ls) (res '())