Segfault with do (Re: [CM] funny scheme code (fwd))

["Kjetil S. Matheussen" <k.s.matheussen@notam02.no>]

On Mon, 20 Jul 2009, Kjetil S. Matheussen wrote:
> A slight modifications makes Guile (the one included
> with fedora 11) crash:
>
>
> [kjetil@ttleon bin]$ guile
> guile> (let ((j (lambda () 0))
> ...       (k 0))
> ...   (do ((i (j)
> ...           (j))
> ...        (l (lambda ()
> ...             1)
> ...           (lambda ()
> ...             (+ i 1))))
> ...       ((= i 3) k)
> ...     (set! k (+ k i))))
> Segmentation fault
> [kjetil@ttleon bin]$
> [kjetil@ttleon bin]$
> [kjetil@ttleon bin]$ guile --version
> Guile 1.8.6

Guile 1.8.0 segfaults as well.

Here's the code ready for pasting:

(let ((j (lambda () 0))
         (k 0))
   (do ((i (j) (j))
           (l (lambda () 1) (lambda () (+ i 1))))
           ((= i 3) k)
      (set! k (+ k i))))

Sorry for not having time debugging it myself right now.