Re: [Chicken-users] Re: Missing documentation for eggs

[felix]

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