Re: [Chicken-users] segfault in chicken

[Mario Domenech Goulart]

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