On Mon, 20 Jul 2009, Kjetil S. Matheussen wrote:
A slight modifications makes Guile (the one included
with fedora 11) crash:
[kje...@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
[kje...@ttleon bin]$
[kje...@ttleon bin]$
[kje...@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.
