Segmentation fault

[frank schwidom]

Hi

the following code leads to an segmentation fault in guile-1.6 and guile-1.8, 
when executed with --debug

----------------
(define (println x) (display x) (newline))

(let ((y (lambda (f)
           ((lambda (g) (g g))
            (lambda (g) (f (lambda (x) ((g g) x)))))))
      (streamof
        (lambda (f) (lambda (x) (cons x (delay (f x)))))))
  (force (cdr ((y streamof) 1)))  ;; without this line a correct errormessage 
will arise; actually a segfault happens

  (println 1 2)) ;; error expexted, but segfault arises

----------------

A discussion appeared already in http://paste.lisp.org/display/48972
(only for interest)

So long
Frank Schwidom
-- 
GMX FreeMail: 1 GB Postfach, 5 E-Mail-Adressen, 10 Free SMS.
Alle Infos und kostenlose Anmeldung: http://www.gmx.net/de/go/freemail