* bug in syncase?
@ 2002-12-13 22:43 Eric E Moore
0 siblings, 0 replies; only message in thread
From: Eric E Moore @ 2002-12-13 22:43 UTC (permalink / raw)
[-- Attachment #1.1: Type: text/plain, Size: 660 bytes --]
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
[-- Attachment #1.2: Type: application/pgp-signature, Size: 184 bytes --]
[-- Attachment #2: Type: text/plain, Size: 142 bytes --]
_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-devel
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2002-12-13 22:43 UTC | newest]
Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2002-12-13 22:43 bug in syncase? Eric E Moore
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).