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
_______________________________________________
Bug-guile mailing list
Bug-guile@gnu.org
http://lists.gnu.org/mailman/listinfo/bug-guile
