[Top][All Lists]

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

bug in syncase?

From: Eric E Moore
Subject: bug in syncase?
Date: Fri, 13 Dec 2002 22:43:01 +0000
User-agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/21.2

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)))

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

Eric E. Moore

Attachment: pgpscX3cijAMq.pgp
Description: PGP signature

reply via email to

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