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

2009-07-22 Thread Kjetil S. Matheussen
Ludovic Court?s: Hello Kjetil, "Kjetil S. Matheussen" writes: 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

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

2009-07-22 Thread Ludovic Courtès
Hello Kjetil, "Kjetil S. Matheussen" writes: > 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 fo

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

2009-07-22 Thread Kjetil S. Matheussen
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) ...