Re: [CM] funny scheme code (fwd)

2009-07-23 Thread Andy Wingo
On Mon 20 Jul 2009 21:09, "Kjetil S. Matheussen" writes: > On Mon, 20 Jul 2009, Bill Schottstaedt wrote: > >> For some reason, this code strikes me as funny: >> >> (let ((j (lambda () 0)) >> (k 0)) >> (do ((i (j) (j)) >>(j (lambda () 1) (lambda () (+ i 1 >> ((= i 3) k)

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

Re: [CM] funny scheme code (fwd)

2009-07-20 Thread Kjetil S. Matheussen
-- Forwarded message -- Date: Mon, 20 Jul 2009 21:02:38 +0200 (CEST) From: Kjetil S. Matheussen To: Bill Schottstaedt Cc: cmd...@ccrma.stanford.edu, guile-devel-requ...@gnu.org Subject: Re: [CM] funny scheme code On Mon, 20 Jul 2009, Bill Schottstaedt wrote: For some reaso