[Chicken-users] irregex.scm

[Jörg F . Wittenberger]

While I've been tampering with the irregex code I found that adding this


(define-compiler-syntax any
 (syntax-rules ()
   ((_ pred ls)
    (and (pair? ls)
          (let lp ((head (car ls)) (tail (cdr ls)))
            (if (null? tail)
                (pred head)
                (or (pred head) (lp (car tail) (cdr tail)))))))))

(define-compiler-syntax every
 (syntax-rules ()
   ((_ pred ls)
    (or (null? ls)
         (let lp ((head (car ls))  (tail (cdr ls)))
           (if (null? tail)
               (pred head)
               (and (pred head) (lp (car tail) (cdr tail)))))))))

to irregex.scm (before define-compiler-syntax reverse ) would not do any 
harm. The corresponding definition in irregex-core.scm would then be 
obsolete.

I have no idea how much the gain/cost ration would be.

Anybody who does?