[Chicken-users] segfault in chicken

[F. Wittenberger]

Hi,

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))))))

best regards

/Jerry