bug in syncase?

[Eric E Moore]

It's either a bug in syncase, or a bug in my code.  But I didn't
change this code, and updated to today's CVS (from a few months ago)
and this code:

(use-modules (ice-9 regex)
             (ice-9 syncase))

(define-syntax re-case
  (syntax-rules ()
    ((re-case str ((reg proc) ...))
     (let ((foo (list (cons (if (regexp? reg) reg (make-regexp reg))
                            proc) ...)))
       (for-each (lambda (x)
                   (let ((r (regexp-exec (car x) str)))
                     (if r ((cdr x) r) r)))
                 foo)
       foo))))

now basically tries to eat all the ram on my system....

-- 
Eric E. Moore

pgpscX3cijAMq.pgp
Description: PGP signature