From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Eric E Moore Newsgroups: gmane.lisp.guile.devel Subject: bug in syncase? Date: Fri, 13 Dec 2002 22:43:01 +0000 Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Message-ID: <878yytilqi.fsf@dyn006239.shef.ac.uk> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="===============75439653278181762==" X-Trace: main.gmane.org 1039819676 29940 80.91.224.249 (13 Dec 2002 22:47:56 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Fri, 13 Dec 2002 22:47:56 +0000 (UTC) Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18Myb4-0007mm-00 for ; Fri, 13 Dec 2002 23:47:55 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 18Myay-0004y1-00 for guile-devel@m.gmane.org; Fri, 13 Dec 2002 17:47:48 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10.13) id 18MyWn-0002B3-00 for guile-devel@gnu.org; Fri, 13 Dec 2002 17:43:29 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10.13) id 18MyWe-000233-00 for guile-devel@gnu.org; Fri, 13 Dec 2002 17:43:22 -0500 Original-Received: from dyn006239.shef.ac.uk ([143.167.6.239]) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 18MyWQ-0001nW-00 for guile-devel@gnu.org; Fri, 13 Dec 2002 17:43:06 -0500 Original-Received: by dyn006239.shef.ac.uk (Postfix, from userid 1000) id 95CF48807; Fri, 13 Dec 2002 22:43:04 +0000 (GMT) Original-To: guile-devel@gnu.org Original-Lines: 23 User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/21.2 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1b5 Precedence: list List-Id: Developers list for Guile, the GNU extensibility library List-Help: List-Post: List-Subscribe: , List-Archive: List-Unsubscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: main.gmane.org gmane.lisp.guile.devel:1826 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.devel:1826 --===============75439653278181762== content-type: multipart/signed; boundary="=-=-="; micalg="pgp-sha1"; protocol="application/pgp-signature" --=-=-= Content-Transfer-Encoding: quoted-printable 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.... =2D-=20 Eric E. Moore --=-=-= Content-Type: application/pgp-signature -----BEGIN PGP MESSAGE----- Version: GnuPG v1.2.1 (GNU/Linux) iD8DBQE9+mJ440OczkogoRERAlPcAJ0bzrh0e3eJzwHEDZZIjIIMtvGEhwCfXxAp LMngqhfdeL8VKaORsTZfErg= =bpD4 -----END PGP MESSAGE----- --=-=-=-- --===============75439653278181762== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit _______________________________________________ Guile-devel mailing list Guile-devel@gnu.org http://mail.gnu.org/mailman/listinfo/guile-devel --===============75439653278181762==--