|
From: | felix |
Subject: | Re: [Chicken-users] Re: Missing documentation for eggs |
Date: | Thu, 25 Mar 2010 16:10:18 +0100 |
User-agent: | Thunderbird 2.0.0.21 (Windows/20090302) |
felix schrieb:
This script hangs for me, eating up memory while expanding the big `match' expression (I think). I tested this with 4.4.3 on Windows (mingw) and 4.4.0 on NetBSD.
Actually, it's this clause that makes it hang: ((or ('define proc ('lambda args body ...)) ('define proc ('foreign-lambda args body ...)) ('define proc ('foreign-lambda* args body ...)) ('define proc ('foreign-safe-lambda* args body ...))) (and (exported? proc) (conc "<procedure>(" proc " " (if (symbol? args) args (string-substitute* (->string args) '(("^\\(" . "") ("\\)$" . "")))) ")</procedure>"))) cheers, felix
[Prev in Thread] | Current Thread | [Next in Thread] |