chicken-users
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Chicken-users] obsolete code


From: Jörg F . Wittenberger
Subject: [Chicken-users] obsolete code
Date: 26 Sep 2011 20:39:50 +0200

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 '()))
   (if (null? ls)
       (reverse res)
       (lp (cdr ls) (if (pred (car ls)) res (cons (car ls) res))))))

The irregex code itself appears not to use them anywhere.

Obsolete?








reply via email to

[Prev in Thread] Current Thread [Next in Thread]