[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Segfault with do (Re: [CM] funny scheme code (fwd))
From: |
Kjetil S. Matheussen |
Subject: |
Segfault with do (Re: [CM] funny scheme code (fwd)) |
Date: |
Wed, 22 Jul 2009 12:42:20 +0200 (CEST) |
On Mon, 20 Jul 2009, Kjetil S. Matheussen wrote:
A slight modifications makes Guile (the one included
with fedora 11) crash:
address@hidden 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
address@hidden bin]$
address@hidden bin]$
address@hidden 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.