[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Chicken-users] segfault in chicken
From: |
Mario Domenech Goulart |
Subject: |
Re: [Chicken-users] segfault in chicken |
Date: |
Sun, 21 Mar 2010 13:30:22 -0400 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.1.50 (gnu/linux) |
Hi Jörg
On Sat, 20 Mar 2010 12:14:59 +0100 Jörg "F. Wittenberger" <address@hidden>
wrote:
> I just made a cut&paste mistake. Now I feel chicken could do better
> than segfault at this:
>
> (define-syntax pass-a-ref
> (define-syntax with-a-ref
> (syntax-rules ()
> ((_ ref b) b)))
> (syntax-rules ()
> ((pass-a-ref ref b name)
> (let ((t (make-thread (lambda () b) name)))
> (thread-start! t)
> (delay (thread-join! t))))))
I can't reproduce the problem just by evaluating the code above. Is
there anything I should do to trigger the segfault?
4.2.0 and 4.3.0 report the following error:
Error: (define-syntax) unexpected object: (define-syntax pass-a-ref
(define-syntax with-a-ref (syntax-rules () ((_ ref b) b))) (syntax-rules
() ((pass-a-ref ref b name) (let ((t (make-thread (lambda () b) name)))
(thread-start! t) (delay (thread-join! t))))))
Call history:
<syntax> (define-syntax pass-a-ref (define-syntax
with-a-ref (syntax-rules () ((_ ref b) b))) (syntax-rules ()...
<--
4.3.4 and 4.4.0 don't complain and don't segfault (Ubuntu Linux).
Best wishes.
Mario